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(57) Abstract 

A solid phase synthesis system is provided by employing a fully automated robot (20) that operates with a novel timing protocol 
executed by a computer (25) for handling multiple synthetic tasks efficiently. The fully automated robot (20) moves along a track (35) and 
is equipped with a gripper arm (30) which can pick up, position, and operate syringes (40, 60) which can contain solid supports and amino 
acid leactants. The novel timing protocol is realized by performing steps in the synthesis cycles for different compounds, such as peptides, 
concurrently rather than on a sequential basis. 
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APPARATUS AMD METHOD FOR 
MULTIPLE SYNTHESIS OF ORGANIC 
COMPOUNDS ON POLYMER SUPPORT 

5 Technical Field 

This invention relates to an apparatus and method 
for the multiple synthesis of compounds consisting 
essentially of repeating structural units formed, for 
example, by repeated washing, deprotection, and 
10 coupling. More particularly, the invention is 

directed to a system for the' multiple synthesis of 
organic compounds, such as peptides, which uses an 
automated robot for handling multiple synthetic tasks. 

15 Reference To Microfiche Appendix 

A microfiche appendix consisting of two (2) 
microfiches and of a hundred twenty (120) frames is 
included as a part of the specification. The 
microfiche appendix contains a program listing 

20 implementing the present invention. The program 
listing is subject to copyright protection. The 
copyright owner, however, has no objection to the 
facsimile reproduction by anyone of the program 
listing, as it appears in the Patent and Trademark 

25 Office file or records, but otherwise reserves all 
copyright rights whatsoever. 

Background of The Invention 

Systems for the synthesis of organic compounds, 

30 for example peptides, are highly desired for many 
applications. For example, the synthesis and 
collection of a large number of peptides would assist 
in the development of agents that could block, promote 
or otherwise affect cellular reactions that involve 

35 recognition and binding. These agents would be useful 
in the treatment or diagnosis of a number of diseases. 
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«=re particularly, synthetic peptides can be used as 
diagnostic and therapeutic agents. 

S been des d r"er? y ' Synth " la h ™ 

b. 9 « ^ using standard £ ^ ^IZl^' 
polypropylene „sh packetB with „ Z£L" 

^protection, neutralizat-i™ ^ asftln9 ' 
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Although some peptide fi^m^K tt «^« 
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example, commercial peptide 
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Furthermore, prior art automated peptide 
synthesis systems critically lack flexibility. Once 
the synthesis of a peptide set has started, any 
additional peptides, even those urgently required, 
5 cannot be started. Furthermore, prior art systems 
lack the flexibility so as to execute more than one 
type of coupling reaction, which is typically required 
for the synthesis of non-peptide compounds* 

10 Summary of The 

A novel synthesis system overcoming the drawbacks 
of the prior art is realized by employing a fully 
automated robot that operates with a novel timing 
protocol for handling multiple synthetic tasks 

15 efficiently. The novel timing protocol is realized by 
performing different steps in the synthesis cycles for 
multiple organic compounds concurrently rather than on 
a sequential basis. 



Advantageously, this novel timing protocol 
provides the flexibility of readily adding desired 
compounds to the list of compounds to be synthesized, 
changing the order in which the compounds are 
synthesized, or deleting previously entered compounds. 
More importantly, such a timing approach or protocol 
decreases the "respite" time - new synthesis steps of 
the next compound synthesis being initiated prior to 
the completion of those in the previous synthesis. 

In an exemplary embodiment, the novel synthesis 
system includes an industrial robot system operating 
under computer control for effecting the synthesis 
steps within each cycle of the selected compounds, for 
example, peptides. Each synthetic cycle comprises 
five different steps: washing, adding deprotection 
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~upU„,' ^ P " tTCti<,n ' ««-» coupling agents and 
coupling. Bac.ua. deprotection and coupling do not 
involve any rofcot action they are ^ "« 

«eps. aUhougn c„a,»i=,ll y , ctiv . ; the others are 
active synthetic steps. P 



5 



importantly, the novel timing protocol is 
realized by having the robot system, during the 
passive synthetic steps of a compound synthesis 
10 perform active synthetic steps for the ^thesis cycle 
of the synthesis of the next compound. * 

solids* of the invention, a 

solid-phase peptide synthesis is used, with a first 

III l\ Pl / StiC Syrin9Se COntaini ** ^ -sin u L 
the solid support and serving as the reaction vessel 
Additionally, a second set of plastic syringes 
contains amino acids. The robot system equipped with 
a gripper arm positions any one of the plu^alL of 

aT n9eS t0 8eleCtiV ^ "Pi»t. and diUse "^ts 
and gents from the desired ^ - 

with the novel timing protocol for coupling 
Predetermined amino acids to the solid support. 

A more complete understanding of the invention 
may be obtained by reading the following description 
xn conjunction with the appended drawing' tl llZT^ 
elements are labeled s im ilarly and in which- 

in Fl9 ; 1 " 3 bl ° Ck diagram ° f a ^thesis system 
xn accordance with the principles of the invention 

Figs 2A and 2B are illustrative flow charts ' 
representing the operation of the synthesis system of 
35 21' ^ PartiCUlarl *< timing protocol; 
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Pig. 3 is a chart illustrative of the timing 
protocol for the synthesis system of Fig. i. 

Detailed Description 

The invention relates to an apparatus for the 
multiple synthesis of compounds consisting essentially 
of repeating structural units, for example peptides, 
formed by repeated washing, deprotection, and 
coupling. The apparatus or synthesis system employs a 
fully automated robot system that operates with a 
novel timing protocol for handling multiple synthetic 
tasks efficiently. The novel timing protocol is 
realized by performing different steps in the 
different synthesis cycles of multiple organic 
compounds concurrently rather than on a sequential 
basis, as discussed in more detail below. 



Without any loss of generality or applicability 
for the principles of the present invention, the 
overall operation of the present invention is 
described using, as an example, Pmoc/tBu chemistry, 
applied to the Merrifield solid phase synthesis of 
peptides. It should, however, be understood that the 
present invention is equally applicable to any other 
chemistry for the solid phase synthesis of compounds 
that consist essentially of repeating structural 
units, such as polymers or organic compounds as 
described, for example, in Borchardt et al . , J. Am. 
ffiem. Soc r , 116: 373 (1994); Chen et al . , J. Am. Ch^ 

116: 2661 (1994); Simon et al., PNA5 . 89: 9367 

(1992) ; Nikolaiev et al., Pept. Reg. . 6: 161-70 

(1993) ; and Lebl et al., Vol. 5: 541-548, Technique 
Jp Protein Chemistry- Academic Plress, San Diego 

(1994) , which are incorporated herein by reference. 
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Before describing the present invention, however, 
it will be instructive to discuss briefly the basic 
principles of peptide synthesis. Peptide synthesis 
involves the coupling of amino acids and may be 
5 accomplished by techniques familiar to those skilled 
in the art. See, for example, Stewart and Young, 

Phflpe syprh^ lr, second Edition, Pierce Chemical 
Co.. Rockford. IL (1984). which is incorporated herein 
by reference. 

v. . The process of peptide synthesis on solid 
supports generally involves building a peptide from 
the carboxyl or C-terminal end in which the C-terminal 
amino acid with its protected a-amino group is 
attached to a solid phase polymer. The protecting 
group is then cleaved off. and the next amino acid 
also protected, is coupled by a peptide bond to the «- 
ammo group of the amino acid attached to the solid 
support. The cycle of deprotecting the prior amino 
acid and coupling the additional amino acid is 
repeated until the desired peptide is synthesized. 
Any reactive side chains of the amino acids are 
protected by chemical groups that can withstand the 
coupling and Nor-deprotection procedure. These side 
chain protecting groups, however, can be removed at 
the end of the synthesis. 



15 



In order to couple an amino acid to the growing 
synthetic chain, the carboxyl group of the blocked 
30 ammo acid must be activated. Many methods of 
activation may be used, including, for example 
preformed symmetrical anhydrides (PSA) , preformed 
mixed anhydride (PMA) , acid chlorides, active esters 
and in situ activation of the carboxylic acid 
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The present synthesis system includes a fully 
automated robot system interfaced to a computer for 
effecting the synthesis cycle of each desired peptide 
to be synthesized. Referring to Pig. l, there is 
5 illustrated a block diagram of a preferred embodiment 
of a system for the multiple synthesis of compounds, 
more particularly peptides, applying standard Fmoc/tBu 
chemistry in accordance with the principles of the 
invention. 

10 

Synthesis system 10 comprises an industrial robot 
system 20, such as Model A251 from CRC Plus, Inc., 
Harrington, Canada, that is interfaced to a IBM 
personal computer 25. Computer 25 includes such 

15 hardware as a central processing unit, program and 

random access memories, timing and control circuitry, 
input and output interface devices, and other digital 
subsystems necessary to the operation of the central 
processing unit, all of which are well known and 

20 understood in the art. Accordingly , such computer 
hardware is not discussed herein for the sake of 
clarity. 

Robot system 20 is programmed to effect different 
25 mechanical manipulations through the use of pre- 
programmed steps typically provided for in software 
programs delivered with the robot system. 
Alternatively, such preprogrammed steps can be 
provided for in third party software programs, such as 
30 Total Control For Windows, Hudson Control Group Inc., 
Springfield, New Jersey. Those skilled in the art 
will readily note that other computer means, 
microcomputer control means or other automated control 
means, including other programming software, may be 

35 
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alternatively provided to effect mechanical 
manipulations . 

Automated robot system 20 equipped with a gripper 
5 arm 30 that is movable under program control along 
track 35 can pick up and position (x.Y.Z) any one of a 
plurality of syringes to any predetermined location 
The gripper arm is used to selectively aspirate and 
dispense solvents and reagents from the desired 
10 syringe which serves as the reaction vessel for 

coupling predetermined amino acids to a solid support 
More particularly, each syringe has a plunger that is' 
movable by the gripper arm so as to aspirate or 
dispense reagents in a manner well known to those 
15 skilled in the art. See, for example, Krchnak, v., 
Vagner, J. , -Color -Monitored Solid-Phase Multiple 
Peptide Synthesis Under Low-Pressure Continuous Flow 
Conditions,- Peptide ^ 3, 182 (1990), which is 
incorporated herein by reference. Moreover, the 
gripper arm provides a means for shaking the contents 
of the syringes. Also, the content amount of reagents 
in each syringe can be readily determined by detecting 
the position of the plunger within the desired 
syringe. Also, to confirm that the syringe has been 
properly gripped and positioned, an optical sensor 36 
detecting the motion of the syringes is preferably 
used to provide feedback to the synthesis system. 

A suitable solid support may be selected, such as 
30 a polystyrene or polyethylene glycol/polystyrene 
resin. The protected amino acids may be readily 
obtained from a number of places, such as Bachem 
(Torrance, California) , Advanced' ChemTech (Louisville 
Kentucky) or Propeptide (Vert-le-Petit. France) 



25 
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Importantly, computer 25 also controls when each 
step in the synthesis cycle is initiated so as to 
implement the novel timing protocol of the present 
invention wherein different steps in the synthesis 
S cycles of multiple peptides are performed concurrently 
rather than on a sequential basis. 

More particularly, synthesis system 10 includes a 
first set of plastic syringes 40 for holding resin 
10 used as the solid support, herein referred to as 

"resin syringes." In the preferred embodiment, RAM- 
TentaGel (0.21 mmol/g) obtained from Rapp-Polymere, 
Tubingen, Germany, is used as the resin. 

15 First set of plastic resin syringes 40 is placed 

in incoming racks 50, each holding up to, for example, 
thirty 10 ml and thirty 2.5 ml syringes. Synthesis 
system 10 also includes a second set of plastic 
syringes 60 for holding amino acid solutions, herein 

20 referred to as "amino acid syringes." Similarly, 

second set of syringes 60 are placed in racks 70, each 
holding up to, for example, a hundred 10.0 ml and a 
hundred 2 . 5 ml syringes. Basket 65 holds the 
completed synthesized peptides. The number and size 

25 of the first and second sets of syringes will be 
dependent on the number of different peptides 
synthesized, the length of the peptides and the number 
of different amino acids required. 

30 Plastic syringes 40, 60 preferably are made of a 

material, such as polypropylene, that is sufficiently 
chemically inert to all solvents and reagents used in 
the solid-phase peptide synthesis, including 
trif luoroacetic acid. Alternative materials include 

35 Kevlar, Teflon or cast glass. 
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30 



35 



Each plastic resin syringe 40, which serves as 
frit (not shown) . it should ^ ^ 
5 lolTV^ Ve8SelS ^ f ° r -raining the 

si : e „ts a8e t reraovin9 the excess 

solvents ma y be used. Por example, columns or wells 
fitted with a frit or filter may be U6ed as 

alternative reaction vessels that are compatible with 
the pr synthe8 . s eyste|n ^ P xth 

L suT^ ^ W6llS ^ COimeCted t0 * — ~»~e 
« such . manner that they can be disconnected from 
the reaction vessel. Moreover, the frit or m, " 
fining the eolid phMe do ^» ^ ^ — • 

— ^ — - 

fro., ^ t ° P r riate SOlVe °" ' ad rM9en " «• introduced 
lo^lT! teMrV ° lr ' » *"«y cups 60 using four 

Micro, T ^ SYatenS 90 ' SU = h " H-H« 
M-roLab ,00. Reno NeV ada. commercial -grade solvent. 
«»d reagent., such as dimethylformaminde ,dhf, 
Piperxdine/DMp, DIC/DMP, are used. ot th(s 

Piston pumps deliver solvent, a^ reagents to deliverv 
cup. 0 whereas the fourth pi.ton pump removes llZl 

adds and the coupling reagents are mixed. 

Delivery cup. SO comprise , first cup loo that is 
used for all washing and for receiving J protected 

mine acid, and coupling reagent., and a second cu P 
110 that xa used for receiving deprotection reagents. 

Those skilled in the art will readily note that 
further independent manipulating station/may J^L 
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to manipulate the syringes, depending on the 
particular reaction desired therein, such as 
dispensing, aspirating, shaking, heating, 
cooling or even refluxing. In those instants, robot 
5 system 20 would only be required to position the 
appropriate syringes in the desired manipulating 
stations. This would decrease the required time to 
perform the active synthetic steps because the most 
time consuming tasks would be distributed among 
10 multiple and independent manipulating stations. 

Using the above synthesis system, multiple 
peptides are synthesized by manipulating the syringes 
so as to repeatably attach during a synthetic cycle a 

15 desired amino acid to the solid support. Those 

skilled in the art will note that there is neither a 
physical link, such as tubing and valves, between the 
reagent vessels and the reaction vessels nor between 
the mixing chambers and the reaction vessels. As 

20 such, different reagents and reaction conditions may 
be used within the same or different peptide 
synthesis . 



Each synthetic cycle consists of the following 
25 sequence of basic operations or steps: washing, adding 
deprotection reagents, deprotection, adding coupling 
reagents, and coupling. Judiciously combining 
synthetic cycles, each coupling a desired amino acid, 
creates a synthesis protocol for the synthesis of the 
30 desired peptide. Only three of the above synthetic 
steps, washing, adding deprotection reagents and 
adding coupling reagents, however, directly require 
the use of robot system 20. These steps are referred 
herein to as "active synthetic steps, " although 
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chemically passive, and are discussed in more detail 
below. 

During washing, robot system 20 positions a 
5 selected resin syringe from rack 40, a tumbler 120 or 
holding position 125 and then dispenses any liquid 
therein into liquid waste 130. a preprogrammed amount 
of washing liquid is subsequently delivered to first 
cup 100 using piston pump system 90 and then aspirated 
together with a preprogrammed amount of air using the 
selected res ir . syringe. Robot system 20 finally then 
shakes the selected resin syringe for a preprogrammed 
time to ensure efficient mixing. 

15 Adding deprotection reagents similarly requires 

the use of robot system 20. Robot system 20 positions 
the desired resin syringe over liquid waste 130 and 
dispenses any liquid therein. A preprogrammed amount 
of deprotection mixture is subsequently delivered to 
second cup no and then aspirated together with a 
preprogrammed amount of air using the selected resin 
syringe . 

Lastly, adding coupling reagents also reouires 
the use of robot system 20. Robot system 20 positions 
the selected resin syringe in holding position 125. 
Robot system 20 then selects and positions a selected 
amino acid syringe, dispensing a predetermined amount 
of desired amino acid into first cup 100 The 
30 selected amino acid syringe is repositioned in rack 
40. A preprogrammed amount of activating agents i s 
then delivered to first cup 100 and aspirated together 
with a preprogrammed amount of air using the selected 
resin syringe located in holding position 125. That 
selected resin syringe is then positioned into tumbler 
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120. Next, robot system 20 dispenses a preprogrammed 
amount of washing solvent into first cup 100 which is 
then aspirated. Typically, the latter steps of 
tumbling and washing are repeated a number of times, 
5 preferably three times. 



During deprotection and coupling, the syringes 

are placed on 2.5 ml or 10.0 ml tumbling racks 120, 

each of which holds up to 18 syringes, to ensure an 
10 efficient mixing. 



In order to better understand the timing protocol 
that allows the handling of multiple synthetic tasks 
more efficiently, a discussion of the underlying basis 
15 for the timing protocol would be instructive, 

particularly with reference to the flow charts of 
Pigs. 2A and 2B. 

To begin with, the user enters the sequence of 
20 compounds to be synthesized. And, if the necessary 
reagents are available, the system will start to 
initiate a desired synthesis - otherwise, the user is 
notified of the deficiencies. More particularly, for 
each desired synthesis, the system determines the 
25 particular synthetic steps, both active and passive, 
that are required to synthesize the sequence as well 
as determines when those synthetic steps are to be 
performed - that is, their timing or temporal 
relationship within the synthetic cycle. 

30 

Those skilled in the art will readily note that 
these synthetic steps are sequence specific, that is 
they are specifically correlated* to the desired 
synthesis. Herein, these synthesis steps are referred 
35 to as a "sequence specific timing protocol." In 
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iscompared 84 ^ "' W dCSi " d 

compared to the sequence specific steps or ti m ln„ 

5 J""" T^""" steps are referred to ,s T 

ar T, Ve , renaini " 9 "" in9 I they 

10 

the svL" Par " CUlarI >'- ">° above comparison requires 

r ,■ s« l~ the 
^inrsr ~r *T etic steps ° f 

the system h • C already initiated. 

synthesis if " ^ ° £ «» — 

20 rr f! k neeeosar * "agents ere available It 

»• should be understood that th. „e» sequence specific 
timing protocol of the desired new synthesis il lto „ 
to the -curative remaining timing ZTZl . " 

Should, however, a timing conflict exist th. 
» system attempts to determine if the initiat'on of the 

slh« " P ""' tl>e S " rt ° £ th * active 

synthetic step of any of the initiated syntheses, so 

system is able to resolve the tiding conflict th. 
system wm not initiate » the 

but „i U instead proceed to executHhe neTr^' „ 
active synthetic step of the ^^.^^C^T 
progress once the active synthetic step na s bL 
5 performed, the system updates the -cumulative 
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remaining timing protocol" and then attempts again to 
resolve the timing conflict during the next passive 
synthetic step of any of the ongoing syntheses. This 
timing protocol is repeatably performed until all the 
5 desired syntheses have been initiated. 

Below is an illustrative description of the 
synthetic steps for the simultaneous synthesis of 
multiple peptides in accordance with the principles of 

10 the timing protocol discussed above. It should be 

recalled that each synthetic protocol in the multiple 
synthesis is a sequenced cycle order of pre-programmed 
steps or procedures. For this illustrative 
description, one synthetic cycle consists of the 

15 following synthetic steps: (i) washing the resin three 
times with dimethylf ormamide (DMF) for thirty (30) 
seconds each time; (ii) deprotecting the amino acid 
with fifty percent (50%) solution of piperidine/DMF 
for ten (10) minutes; (iii) washing the resin five (5) 

20 times with dimethylf ormamide (DMF) for thirty (30) 
seconds each time; and (iv) two (2) hour coupling 
using three (3) molar excess of DIC/HOBt activated 
Fmoc protected amino acids. 

25 After finishing the last synthetic cycle for each 

peptide, the synthesis is finished by washing, or by 
washing, deprotecting and washing, if that is 
applicable. 

30 Robot system 30 operating in accordance with the 

above illustrative synthetic cycle positions a first 
resin syringe (peptide synthesis no. 1), manipulates 
the plunger to aspirate a wash solution of 
dimethylf ormamide (DMF) , and then shakes the resin 

35 syringe. This washes the resin with wash solution for 
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thirty (30) seconds, inferably, the washing is 
repeated three times. Subsequently, the first resin 
syringe 1S used to aspirate from the delivery cup the 
protection r.. 9 e»ts that have been dispensed b^ the 
= Piston pump. This latter step is the "adding 

lutes d ' P """ iOT "bout five «, ' 



minutes, 



During deprotection. which lasts about ten do) 
es the synthesis system can advant.gec^iy 
direct the robot system to initiate washing and adding 
protection reagents for , 8econd resi „ * ™ 

15 = . SY " theSiS *•""*« 'vnthesis no " 

X5 Since that washing ana addi „ 9 daprotection ^ " 

« least fwe minutes still remaining before the 
protection is coveted for the first resin syringe 
To ensure that the respite time between steps J. 

row ' SyMhe8iS £ ""»~ the 

robot system to initiate yet another washing and 

adding deprotection reagents t. r , , . 

-Peptide synthesis no. a7 Syri " 9e 



25 



30 



Determining whether to initiate another washina 
and adding protection reagents for a subsist ^ 
resin syrxnge ( the „ ext peptide eyntnesis) J" 

controlled automatically under program control by 
compa r the sequence specific protocol ^ Uh 

atvi umu r:r: remaining timin * - * is j s h sed 

the lea «t remaininq time for- 
protection is sufficiently long to compete the 
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Once deprotection has been completed for the 
first resin syringe, the synthesis system directs the 
robot system to position the first resin syringe so as 
to wash the resin for thirty seconds with 
5 dimethylformamide (DMF) . This is repeated, 

preferably, five times, after which the resin syringe 
is positioned in a temporary holding location. The 
amino acid syringe containing the desired amino acid 
to be coupled is next positioned and a preprogrammed 

10 amount dispensed into the delivery cup which then 

receives a DIC solution. The first resin syringe is 
used to aspirate from the delivery cup the amino acid 
solution so as to couple that amino acid. This latter 
step is the "adding coupling reagents" step, 

15 Likewise, the time for washing and adding coupling 
reagents takes about five (5) minutes. During that 
coupling, the synthesis system advantageously directs 
the robot system to initiate coupling for the second 
resin syringe (peptide synthesis no. 2) , and then 

20 subsequently for the third resin syringe {peptide 
synthesis no. 3) . 

Similarly, determining whether to initiate 
another washing and add coupling reagents for a 

25 subsequent resin syringe or peptide synthesis is 
controlled automatically under program control by 
comparing the sequence specific timing protocol with 
the cumulative remaining timing protocol, as discussed 
above. In effect, washing and adding coupling 

30 reagents are initiated if the least remaining time for 
coupling is sufficiently long to complete the task. 



Once coupling has been initialized for all three 
resin syringes, that is the three peptide syntheses, 
35 the synthesis system takes a fourth resin syringe 
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5 coupling time expires. " reiMlni "9 

This procedure is repeated until the sequence of 
the shortest length peptide i. .ssembled lT12T, „ 
an additional . ea ' If aesired, 

10 gyring, „n then be used to 

10 synthesize . new peptide sequence. 

liniJT^™" a "° m " : ° f peptide synthesized i. 

limited by the size of the svri„™ . 

10 ml syringes c»^ =i ■ ^ ri ° 9 *- Por ««»>ple. with 

15 mmol/ 9 llsZr T 9 ' " 3 ° £ rMi » <°- 5 

peptiL T L M "=iP«t.d that 0.25 mmol of 

^thti^'. 300 * ^ ~ 

- — is^sr de^pt^/r^ r in ehe 

for each peptide synthesis is the .al T *, 
initiated coupling finishing prior Ts^ ^ n^" 

« -Hows the order in ^ch^rloT"^^ " 

o-— TSLVT "f ^ 

-t ~ — • 

30 an active synthesis step * IL Z/Z^ 
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A program listing implementing the principles of 
the invention, including the timing protocol, is 
contained in the microfiche appendix. 

5 Referring to Pig. 3, there is illustrated the 

timing protocol or timing relationship between 
washing, adding deprotection reagents, deprotection, 
adding coupling reagents and coupling for the multiple 
synthesis of twelve peptides using the above described 

10 solid phase peptide synthetic protocol. Those skilled 
in the art will readily note based on the discussion 
above that during passive synthetic steps 
(deprotection and coupling) , active synthetic steps in 
the synthetic cycles of the next peptide synthesis are 

15 concurrently initiated with the prior peptide 

synthesis. For example, referring to Fig. 3, during 
deprotection of the first peptide synthesis (peptide 
synthesis no. 1), washing and adding deprotection 
reagents is initiated for the second and third peptide 
20 syntheses (peptide synthesis nos . 2 and 3). 

It should be understood that prior to initiating 
the synthesis of each compound, various parameter 
variables must be specified, in the synthetic protocol 
25 of each desired peptide synthesis, including the kind 
and amount of solvent or reagents to be dispensed, and 
the length of time of the corresponding washing steps 
and/or reaction steps. Also, because aspiration is 
performed in adding deprotection reagents and adding 
coupling reagents, the volume of air necessary to 
enable the efficient mixing of the resin and solvent 
must be specified. 
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In addition to the various parameter variables 
which must be specified or retrieved from existing 
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stored synthetic protocols, the synthesis system must 
also be initialized with other information, including 
the assignment and identification of solvents and 
reagents contained in the peptide synthetic protocols; 
S the reagent and amino acid concentrations (mmol/ml) 
used to calculate the corresponding reagent and amino 
acid solution volumes, respectively; the size of the 
syringes; the amount of resin in the syringes; the 
substitution of resin in mmol/g; the positions and 
content of each amino acid syringe, preferably 
identified by a three to five letter code, including 
its concentration and available volume; the peptide 
sequences desired to be synthesized using the 
identifying three to five letter codes; and for each 
15 peptide its identifying code, and sequence. 

Preferably, the system prompts the user for the 
information. Alternatively, however, this information 
may be entered prior to initiating the peptide 
syntheses or stored in a file or database 

20 

The order in which sequences to be synthesized 
are entered establishes their priority for synthesis, 
and establishes a synthesis queue. Advantageously, 
any compound can be entered with any priority. Also, 
additional sequences can be added to the synthesis 
queue together with the necessary synthetic protocol. 
Also, additional reagents may be added, if necessary. 

From the above information, the system calculates 
whether the amount of amino acid and reagents is 
sufficient to prepare all the peptides. Unless there 
is enough amino acid and reagents available for the 
synthesis, the synthesis system will not initiate that 
synthesis, indicating instead its status as "not 
35 ready." Significantly, the above timing protocol 
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allows handling multiple synthetic tasks efficiently 
since active synthetic steps requiring the use of the 
robot system in the synthesis cycles of multiple 
peptides are performed concurrently with passive 
5 synthetic steps in different synthetic cycles. 
Moreover, because synthesis resources become 
immediately available with each completed synthesis, a 
new peptide synthesis can be initiated without waiting 
for the complete synthesis of the entire set of 

10 desired peptides. Preferably, the new peptide 

synthesis is taken from the top of a waiting list of 
peptides that has been prioritized according to need. 
Advantageously, that prioritized waiting list can be 
changed at any time, either by adding or deleting any 

15 peptide, to meet varying situations. Further, any 
peptide currently being synthesized can be halted 
without affecting the synthesis of the others. 

Advantageously, since there is neither a physical 
20 link between the reagent vessels and the reaction 
vessels nor between the mixing chambers and the 
reaction vessels, different reagents and reaction 
conditions may be used within the same or different 
peptide synthesis. Such flexibility, of course, 
25 allows for the synthesis of libraries requiring 
variable numbers of building block reagents. 

To test the reliability and throughput of the 
above novel peptide synthesis system, five different 

30 peptide amides (IKRKR, VRYGI, AAAGY, FPRGR, VYFAW) 
were synthesized using a RAM TentaGel resin in 
accordance with the principles of the invention. 
Also, a mixture K (82.5% trif luoroacetic acid, 5% p- 
cresol, 5% thioanisole, 2.5% ethanedithiol and 5% 

35 water) was used to deprotect side chains and to cleave 
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30 



the pep tide8 from the resin. Results from that 
experimental practice indicate, a high degree of 
Puraty of the crude material based ol analytLIl 
gradient HPLC traces and molecular peak aa . 
mass spectroscopy. P * analvsis using 

It is understood that various other m«r.<*- 
will also be rea dn„ "edifications 
-lso ce readily apparent to those skilled in i-v,- 

w example, the principles of the 
invention can be equally ao D li*rf . 
involves reoeat.H I applied to any chemistry that 

ves repeated procedures, such as washing 
deprotection and coupling - particular^ , 
synthesis, including t^^T 
reactions described in Borchardt et al T T 

1": 373 <l 994 > ; Chen et al . f"* ^ ' 

1": 2661 U 994); simon et al l^^^^-^' 
Nikolaiev et al „ ' ' " 67 (1992) ' 

* the claims appended heret( , ^ limi 
ct^T" 8 " £ ° rth herei °' »«~ that ^ 

treated as equivalents thereof by those skin J • . 
art to „hi=h this invention pertLs ' *" 
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Procedure : AKXKO 



AStKr* : 5%** 1110 curront: vaiues of amino acid volumes 



disablekeys 

filenev 2,»tettp. pr t- 

if (noB codes) 

\<\l*^** Anino Acid founts- 

m.«^e e f;."^ -* C «* Avail code Hea. Avai! code 

Wh ts 8 - C -- < " nua - codes « a <- 50) 

M^TSTS b$ '"* 4 - 3s «-«* -.-l^_cod. $[aJ . M lis^re qta ,,aall st 
if (ft+50 <o nun codes) 

ui-STS ES '-*«- 3 * ts.llf ^aalist.code^.+so^aalist: rec ( a +50 

endif — 

if (a+100 <« nua_codes) 

S'i'STK bS '"* 4 -^ *S-U« %3.11£ ».aal ist _code $( a + l00],aali 6t re q£ . +1 
endif ~ 
if (a+150 <=« nu»_codes) 

gT£j b5 '"**- 3s «.Hf «.H i -.a.l is t:_code $ ra + l50],aali s i: reqI a + l50 

ndif 

.ilewsriteline 2,a$ 
* » a 1 
endvhile 

eJe 1Witeline 2 '* S =*«C12) -Available Amino Acid Amounts- 
Jllwitelin. 2, -Available Amino Acid Amount* - 
filevriteline 2,"" 

filewrite line 2>- 10 Bl 2 . 5 al Syringe 

m^riteline 2,-Pos Code Cone vol Po8 ^ Conc Vel po8 c ^ ^ p<> 
while (a <- so) 

!ttST$ %«.3. «.Uf «.,« •■.a,.cid_code S[ , ] .acid conctaj.ac 

ffWTS b$ '""-°" «.« -.a^O.acid.code.Ca^Kacid con 

b $ .-„.oir %4 . 3S M<Uf UmUt -.a,acid.eode $[ ..ioo ) .acid colcfa 

S^STS b$ '""- 01f --I" *-^-.a +5 o,acid.ecde $ C. +1 SO ] ,acJ C o„oC 
filevriteline 2 f a$ 
a - a + i 

ensile Copyright, 1994 , 1995 
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£ ilecXooe * 
fileprint "teap.prt" 
enablelceye 
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Procedure : amtko 

j£3£r° I S«^ES PCrator *° chan 9e amino acids 



local a , b , a$ , b$ , lastcoderov , startindex , sel_ro v 
disableJceys 

fjg.gr sL°":L^ a r^e e \r^ t one ° ^ have 

setnuauttxay code_colorcij, 15,-1 
Vh H°. Ruacedas) 

andif * 
a - a + i 
andvhile 

; Start off by showing all codas 

while (a <» ioo) 

code_index[a] - a 

code_index(a+iooi «* & 
a - a ♦ i J 

endwhile 
codo_row - o 
laatcoderow • o 
te row m o 
teu_col • o 
nua^ten - ioo 
two^rw m o 
two^col - o 
xiuhPcwo m ioo 

i-^^SS^S^S - ^ *° to it: 

savavars S.-iaoScodasIdat- 

screenon " amino " 
tnablexays 
uaer_choice - o 

while (usor_choice !- -i) 
it (user choice — i) 
call aminoprt.tcl 
«»«r_choice - o 
elaaif (user choice — 2) 

-Claar all amino acid values 

if (usw^oica)"^ y ° U SUr ° yOU Vant to clear \nall amino data?" 
"J^f^^array acid_coda$ m ,",200 
satoumarray acid cc>nc(i],o,200 
satnumarray acidIavail C i , 0 "Z 0 
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calc_needed » 1 
update table 
endif 

user choice * o 
elraif Tuser_choice = 5) 

ask uaer_choice, "Cancel changes to amino racx?" 
if (user~cboice) 

; Retrieve temporary data 

loadvars 1, H tapamino.dat " 

loadvars 2 , "tapcodes.dat" 

acreenback 

stop 
endif 

user_choice - 0 
elsaif~(code row !» lastcoderow) 
; show a subset of the codes 
disablexeys 
screenhold 
if (code_row — 0) 
; show"~all codes 
a - 1 

while (a <- 100) 

code index(a) « a 

code~index(a+100} - a 

a - a + l 
endvhile 
nua^ten «= ioo 
num~tvo b ioo 
else ~ 

; Only show the locations for the codes selected 
a$ - aalist__code$[code row] 

; Search through the 10 ml array and find ones that match 
num_ten - o 
a tart index - 0 

sarrayfind startindex, acid codeS ( start index+i ] r a$ 
while (startindex l« -1 £&~startindex <° 100) 

nun^ten ■ nun^ten + 1 

code_index( num_ten ] » "startindex 

sarrayfind startindex, acid code$(startindex+l) ,a$ 
endvhile "~ 

; Search through the 2.5 al array and find ones that natch 
num_tvo — o 
startindex - ioo 

sarrayfind startindex, acid code$(startindex+l),a$ 
while (startindex 1- -1) 

code_index(num_two+l0l] - startindex - 100 

num_tvo - nun_tvo ♦ l 

aarrayf ind startindex , acid_code$ ( start index* 1 ] , a$ 
endvhile 
endif 

lastcoderow - code_rov 
updatatable 
screenupdate 
enableJcoys 
elseif (ten__row | | two row) 
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; Change amino acid 
diaaJslaJtayo 

i/fSTr^ VhAch -*■» « id ~<* 
ei«| 1 " r ° W " code -. in< aex(tcn_row) 

enl!f- rOW " code _index(tvo_row * iooj + 100 
show sel row 
ten_rov « o 
tvo~rov « o 
if (fast fill) 

enS!^- aVaUtSeX - rSw ) -2-5 + 7.5.< 6 el_rowo.lOO> 

else 

els« " " Xn(1 ° Bi rac *' Position « ♦ nuntostr$(sel_rov) ♦ -)- 
endif" " Vn<2 - 5 nl »«*. position - ♦ nuatostrS(sel_row-ioo) ♦ -)« 
•S^ci^coS^^!^^"^^ **** «» concentration fr« similar code 
if ^I'T" 9 *5 ' «• code: - +bS 

endiT rayr " ,Cj StartiBdix ' acie, - c «»«*eSCstartind«e+ij ,a$ 
i' (start index ! - -i) 

^acid_conc[seI_row] - acid_conc tS tartindexJ 

-n5i| d - COBCt8el - rowl * - 1 
eB a |ia-avai 1( sel_rovj - o 

* - acid_conc[sel row] 

S*"!?^ a i"f nteJr >« concentration.-^? 



l 5wni*e* in,, Startind «' ac "-=o«leStst«rt:indexi.i] ,a$ 



andwhilc 
•ndif 
-1 



Icid avaix^^* 7 -^(-^-ro-<-loo n) 

OTr* l'U n l~ mailable volume:--!* 
if (a 1- ii 4 2 ?- 5 * 7 - s *(««l row<-ioo)>) 
" ia i» acid_avaH[sei_rowj) ~ 



Paqe 6 



W0 967221S7 



PCT/US96/01168 



cid_avail[eel row) - a 
endif 
else 

telXalarm "The volume oust be between 0 and " + nuntostr S f 2 . 5 + 7 s* 
endif 
endvhile 
endif 

updatetable 
screenupdate 
enableJceye 
endlf 
endvhile 



savevars 1 , anino.dat n 
savevars 2 , « codes. d&t" 
s Greenback 
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Procedure: BREAKSEQ 

Purpose : breaks sequence into individual codes 

Author :MJB 

Notes : Input — bs_seqS 

Output- couplings = # of couplings 

code$[couplingsj - individual codes in sequence 
bs_crror»l if error, 0 if valid sequence 



local char$ ? seqlen,pos > a»b 

seqlen = strien(bs_seq$) 
pos» 1 
couplings = 0 
bs_error = 0 

setstringarray codeSfl]/"^! 

// Break sequence string into peptide codes «== 
while (pos<=seqlen) 

chart - midS(bs_seqS,pos,l) 

if g!wllalnum(cfaar$)) 

cod^[couplings+l J - code$[couplings+l] + chart 
ciseii (charS*— 1 

if(strlen(codeS[coupGng$fi])) 
couplings •= couplings + 1 

endif 
else 

bsjeiTor s = 1 

stop 
endif 

pos « pos + I 
endwhQe 

if (strien(codeS[coupIing^-iD) 
couplings = couplings + I 
endif 



// Flip sequence around 
a«I 

while (a<«coupfings) 

ffipcode$ra] = code$[a] 
a-a + 1 

endwhile 
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b = couplings 
a= I 

while (a<=couplings) 
codeS[a] = flipcodeS[b] 
a = a+l 
b = b- 1 

endwhile 
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timer aytlae 
disableXays 

stringrsquest -OSIHG SWUHCES- 

S^nf e Ld C f 1 r iating re9Ui " d volumes. . . - 
Bereenupdate 

nuB_cod«s - o 

syringe - £ - HlAJ 

»*ile (syringe <- nu»_syring.s) 

2«SSupLt?' iCttl,lti, " (syringe "-nuatostrS (syringe) +-) - 

^nly process the S vri«™ i# w 
Un^ES^ b?an •'■"E -ssigned a location or it 

; Set-thS^rllels^iia'^-ff^ 8 ? 8 ^^! > « 

; start if i t hasn't bem» svr "»9 e '* current status or to the 

else Hyr_aauji 0 _ st . ep [ syringe J 

cuzprocess - 2 
cur amino - i 
■ndi* 

SodSpT^ $ s^r S oT5f^S^f e$ tsvrin 9e ) 
««_8hort - Q s l^_doaoprotS [ syringe j 

«lIlreLe^T?ef U * nCeSfSyri,l » a J 
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; Pliw amino volume required 
'va^process « curprocess 
aa_amino$ « codeSfcuramino) 
aa syringe » syringe 
call c&lcaa.tcl 

; Find solution and buffer volume 
buf_process - curprocess 
buf syringe - syringe 
call calcbuf .tcl 

; Determine which step is next 
stringrequest "HEXT STEP" 
ns^ process - curprocess 
ns_anixio ■ cur amino 
ns_dodep$ - eurdodep$ 
call nextstep.tcl 
curprocess — ns_process 
cur amino - ns amino 
stringfree "NEXT STEP" 

endvhile 

; Is there enough aa and buf for syringe to be processed? 
if (aa_short | | buf short) 
calc_needed - l ~ 
if (syr_procoas[ syringe) «» x) 

syr_process[ syringe) - o 
elseif (syr_process( syringe) > 1) 

tellalarm~"Syringe *"+nu»tostr$ (syringe) ■+" is in process\nbut will not h 
endif 

elseif (syr_process( syringe) «» 0) 

syr_©rocefls( syringe] - l 
endif 

endif 

syringe - syringe + 1 
endvhile 

sysnsg$ * "" 
updatatable 
screanupdate 
enableicays 

show "calc took " ♦ numtostrS (elapsed(mytiae) ) 
stringfree "DSIKC SYRINGES" 
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-36 — 

Procedure * c&LC&x 

Purpose : Calculate required amino acid for a 'step 
Author : KJB,CES 
Notes : input: aaj>rocess 
aa_amino$ 
aa~syringe 

aa~short — set if the avail is less than required 
local c_index , rt_index , tempamount 

if <prot_step$(protjiroc[aa_prQcess]] — "Add Coupl.") 

; Pind the code in the "required" list, insert it if it isn't there 
sarrayfind c_index, aalist code$(l],aa aminos 
If (c_index — -i) ~~ - 

num^eodes *> num^codes * l 

&alist_code$(num_codes] » aa amino$ 

c_ index ■« nun^eodes ~" 

; Kow find tb? code in the RT racJcs and find the available volume 
sarrayfind rt_i,viex,acid code$(l],aa amino $ 
while (rt_index 1- -l) " ~ 
; Pind the total amount of amino acid 

aalist_avail[num_codes) « aalist avail (nun codes} ♦ acid_avail(rt index) 
aalist_conc(num_codes] - acid conc(rt index] ~ 
sarrayfind rt index, acid code$frt index+ll.aa amino $ 

endvhile ~ ~ ~ 

c index «= num codes 

r ilf 

, determine the volume required 
if ( aallst_conc ( c_index] ) 

tempamount - syr_resin(aa syringe] * syr subst(aa syringe] * prot vol(aajpro 

tamp amount - tempamount /"aalist conc[c_Index) 
alse ~ reqCC " indeXl ~ aalist^reqlc^index) + tempamount 

aalist^availfc index} - -1 
aalist_req(c index] - 0 
endif " J 

if (aalist_req(c index] > aalist avail (c index]) 

aa short - l " 
endif 

endif 
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Procedure : CaECBUF 

Purpose : Calculate the required buffer solutions 
Author : KJB,CES 
Notes : Input: buf_nrocess 

buf syringe , _ w . 

buf~short — set if avail is less than required 

local temp$,sol_index 

te»p$ « prot step$ [prot_j>roc(buf jprocess] ] 

if (*eap$ i«~«Add Couplt" &£ tempS !- "Wash" fi& tempS I- "Add Oeprot.") 

stop 
endif 

sarrayfind sol index, contents$(l] , prot_buf$[ buf process] 

if (sol index — -1) L ^ 

symasgS - "Could not find buffer solution: "+prot_buf $[buf ^process] 

delay 1000 

stop 
endif 

if (tenp$ = -Wash") 

sol req(sol index] = sol_req(sol index] + prot_vol [ buf .process ) 
sol~req[ so 1~ index) « sol reqtsoO.™***] + claaning_anount*3 

elseif (temp$ — "Add CoupX. n ) ~ %A . . , 

sol_req[sol_index] - sol_req[sol_index] + ( syr_res in ( buf .syringe] *syr_subst(bu 

elseif (tenp$~ «■ "Add Deprot.") "~ 

\_req(sol_index] » sol_req(sol_index) + prot_vol ( buf ^process ] 

it (sol_req(sol_index) > sol_avail[sol_index]) 

buf short ■» l ~ ~ 

endif" 



Page 13 



WO 96/22157 



PCT/CS96/01168 



Procedure: CLE&KCUP 

^S°^ e ; ^« coupling cup with solution 



local b 

;find cleaning solution 

JSi^SJ 11 ? c J- ean « b ^l,prot steps (1], "Wash- 

SrS^i^ c ^ CM - bu£ 2'P«Oroifl] clean buf 1 

sarrayf ind clean** , contend 1 J iprot_bur$[^lean.buf 2] 

clean_cup_done • i 
b - 0 

while (b<3) 

^dispense cleaning solution 
if (! simulate robot) 

^SYRlHGE.dispense cleanbuf , cleaning_amount 
delay 500 

ini3^ir^? oittWon ' fourth prob is v — 

^SYRIHGE . pipette 4, <cleaning_amount + .5) 
delay 500 

^ <■ b ♦ i 
eiu. *ile 

SYRINGE. pipette 4 , cleaning_amount 
clean w cup_done -> o 
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Procedure: CLEAR ATJ. 

Purpose: clear all syringes from the system 
Author: CBS 

local choice 

sysasgS « "" 
screenupdate 
clear_all_syringes ■» 0 

ask choice, "Are you sure you vant to clear all syringes?" 
if (! choice) 

enableXeys 

stop 
indif 

if (next syringe > 1) 

ask choice, "Are you sure you want to clear all active syringes?" 
if (i choice) 

enablekeys 

stop 
else 

tell "Please remove ALL SYRINGES from the ROBOT SYSTQt now." 
endif 

sysasg? m "Clearing all syringes" 
endif 

sex w^nupdate 

; data for a saaple 

setetringarray syx_pepcode$ [ l ) , " " ( -l 

setstxingarray syr sequences [1] , ■" ,-1 

setnuaarray syr_size [1] ,10,-1 

setnuaarray syr~r ac)c [1] #0,-1 

setmraarray syr~rac)cloc(l],0,-l 

setnuaarray syr~loc ( 1 ] , 0 , -1 

setnuaarray syr~grip ( 1 ) , o , -l 

setnuaarray oyr^aaount C 1] #0,-1 

setnuaarray syrjrocess [ l ] , o , -l t . 

setnuaarray syr amino stepCl],0,-l ;holds current coupling solution 

setnuaarray syr~amino_counttl] , 0,-1 ; ho Ids current coupling solution 



setnuaarray syr_resijn[l] , .2,-1 
setnuaarray eyr~subst(l] , .45,-1 
setstringarray syr dodeprot$ [ l ] , "N" , -1 
setnuaarray syr_processtime(i] ,0,-1 
Betstringarray syr datetiae$(l) ,-1 
setnuaarray syr_statcolor ( 1 ] , 0 , -1 
syr_pepcode$[i] - "Default" 
nun.syringes - 0 
naxt_syringe - 1 
current_rov - i 
restart" index - 0 
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^ S ^J equxred to zero 

«f^ tringarra y "list codesril - 200 

eetnSSS^ »*^- aVailf13 '°' 200 
™* rra y a&1 ist_conc(i3 # 0,200 

screenupdate 

savevars S, "syringes.dat" 

savevars 2, "cedent- 

sysasgS * 

screenupdate 

enableJeeys 
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; ~4t~ 

; Procedure: CLEAKALX. 

; Purpose: Clear all syringes from the system 
; Author: ces 



local choice 

sysmsgS «■ "« 
scraenupdate 
clear all_syringes - o 

ask choice, "Are you sure you want to clear all syringes?" 
if (1 choice) 

enaolekeys 

stop 
endif 

if (next_syringe > 1) 

ask choice, " Are you sure you want to clear all active syringes?" 
if (1 choice) 

enableJceys 

stop 
else 

tell "Please remove ALL SYRINGES from the ROBOT SYSTEM now." 
endif 

sysmsg? « "Clearing all syringes" 
endif 

sex -nupdate 

; data for a sample 

setstringarray syr_pepcode$ C 1 3 , " " , -1 
setstringarray syr sequences CI] , "",-1 
setnumarray syr size[l] , 10,-1 
setnumarray syr~racJctl] , o,-i 
setnumarray syr~racJcloc[l] ,0,-1 
setnumarray syr_loe(i3 , o,-i 
aetnumarray syr_grip( l) , 0,-1 
setnumarray syr amount [1) ,0,-1 
setnumarray syr jrocess(i] ,0,-1 

setnumarray syr_amine_stepCl] ,0,-1 ; holds current coupling solution 

setnumarray syr_amino__count(i] ,0,-1 ; holds current coupling solution 

setnumarray syr_resin[l] , .2,-1 

setnumarray syr_suhstti) , .45,-1 

setstringarray syr dodaprot$(l] ,«M", -1 

setnumarray syr_processtime[i] ,0,-1 

setstringarray syr_datetime$ C 1] , , -1 

setnumarray syr_statcolor[l] ,0,-1 

syrj>epcode$[l] « "Default" 

num_syringes - o 

nekt^syringe - l 

current__rov - i 

restart~index - o 
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AuTSoS^iV 408100 *° r ~° 

setnunarray aalist req C lJ?0,200 
settnmarray aallfi^Whfij ^Tjoo 
sattmaarray aalist>mctl] ,o°200 

scroenupdate 

savovars 5, "syringes. da*- 
savav&rs 2 , "codes.dat" 
sysasg$ - M * 
screenupdate 
enablekeys 
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Procedure: cutBACK 

Purpose : places a sero in rack position 
and current position in gripper 
Author : HJB 



; clear input rack 

if <syr_loc{current_index)) 

ayr loc[ current index] • o 
endif" 



;set rack to gripper 
syr_rack(current_index) « 10 

; clear rack location 
syr_rackloc [ current_ index ] = 0 

;save changed rack varibles 
savevars 5 1 "syringes. dat* 
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Procedure : COUPmc 

£3£ e ; £5°' actiona £ °* "upii^ 

local b,buf .place, infoindex 
infoindex - 1 

;find buffer in reagent table 

sarrayfind *«Olace, content*^ ^ P ^^ 

!%£3S2^^ « ^ dipper 



rack t»;":T iWt " inaeXJ "" 10) 
else ~ 

racJc_type - 2 
endif 
nest - 1 

^T-T M,d dis P"» e acid 
shew cp~aain e $ 



^o~f^d"- a o ~ lndeX) * Eyr - SUb3t C <~~«t_index ] .prot_vol [ syr_pro 

*ilaojiace - 0 
ilia (I amino found) 

endif ~ 



endif 
endvhile 



endvhile 

xr {*minojpiace>ioo) 
ra^It^f 0 ? " "location - 100 



rack^type - 3 
endif 

call getrack,tci 
call stopeheJc.tcl 
9rip - i 

•lee 

syringe - 1 
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endlf ~ J 

riant. - 2 

call puthold.tcl 
call stopchek. tcl 
grip - 2 
nest - 2 

call gethold.tcl 
call stopchek. tcl 
cup * 1 

restart infoS [ info index) ° "Add Coup: Began Dispensing " + nu»tostr$ (dsp amou 
savevars 7, » restart.dat" ~ 
infoindex • infoindex + l 
dsp_aaount » acid avail (amino place) 
call syr dsp. tcl " 
call stopchek. tcl 

restart_info$( infoindex) « "Add Coup: Finished Dispensing » + nuatostr$ (dsp 
savevars 7, "restart.dat" " 
infoindex - infoindex ♦ 1 

acid_needed - acid needed - acid avail (amino_place) 
acid_availCa&±no_pIaca) » o " 
savevars 1 , " amino . da t " 
grip - 2 
nest - 2 

call puthold.tel 
call stopchek . tcl 
grip « x 
nest <a 2 

call gethold.tcl 
call stopchek. tcl 
rack_location « aaino_place 
if (amino_place>ioo) 

rack_location - rack location - 100 

rack_typa • 4 " 
else ~" 

rack type ■ 3 
endif" 

call pu track, tcl 
call stopchek. tcl 
amino_found ■■ o 
while" ( ! anino_f ound ) 

sarrayf lnd aai.no_place , acid_code$ ( ( anino_place+l } ] , cp_amino$ 

if ( ( acid_avall [ asino_place ] ) 1 1 ( amino_place— 1 ) ) 
amino_f ound • 1 

endif 
endvhile 
endvhile 

rack_location « aaino_place ;do final RT syringe dispense 
if (amino_j>iace>loo) 

rack_location • rack location - 100 

rack_type - 4 ~ 
else *" 

rack type - 3 
endif 

call ge track. tcl 
call stopchek. tcl 
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grip - l — - *fa ~ 

if (amino_j>lace>ioo) 

syringe - 2 
els* 

e inge - 1 
endif 
nest « 2 

call puthold.tel 
call stopcheJc.tcl 

grip - 2 
hast - 2 

call gethold.tcl 

first _pulses » motorpulses 

call stopchek.tcl 

cup « x 

dsp_aaount » acid needed 

s:^^f? re8 ^fg^i * ° M « Co «P= Began Dispensing - «■ numtostrS (csp^amount 
infoindex • infoindex ♦ 1 
call syr dsp.tcl 
call stopcheJc.tcl 

s^vw^^^sf^^^ " ^^ailtaninojlace) - acid.needed 

I"^ 1 ^?^^^^ - **** *-P* Finished Dispensing - ♦ numtostrS (dsp_a»o 

infoindex = infoindex + 1 

Trip - 2 

nest - 2 

check motor m 1 

caJ puthold.tcl 

chew motor * 0 

call stopcheJc.tcl 

jecond_pulses « motor_pulses 

ifRiKJ^Si^ dispensed traa syrin * e 

i ^or^cc5T= P ^ " <second_j>ulses<(f irst_puises+5) ) ) 

call error -tcl 
endif 
endif 

grip - 1 
nest » 2 

=all gethold.tcl 

iall stopcheJc.tcl 

rack location - amino olace 

if (aaino_place>ioo) 

ralk'Se^ 0 " " rack ^ locat i°n - 100 
else "~ 

rack type - 3 
endif 

caj* putracJc.tcl 
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call stopchcjc.tcl 
gettlng_rt - 0 

/dispense buffer solution 

raatart_inf o$ [ info index) - "Add coup: Began Dispensing Burner 
savevars 7 # "restart. da t" 
infoindex - info index + 1 
cup m 1 

sarrayfind a f contents$[l) # prot_buf$[syr_process( current index] ] volrevr oro 

disp_anount - syr - resin(current_ > indexj*syr_sutostCcurrent - index) *prot_voi[syrj>ro 

reagent disp - disp_amount ~ 
buf_number - a " 
buf^amount - dlsp_anount 
run~disp buf »tcl ~ 

sol_avaiT(a) - sol_avall(a] - disp_amount 
savevars 4 , "reagents .dat" 

^0^60?$°-' -dispense : - + numtostrS (disp^amounr) + - no«le: - ♦ numtostr$(a 

call logrobot.tcl , „ . 

logrobotS » "solution : " + prot_buf $[syr_process[current_inaex] j 

call logrobot.tcl 

r«startJ.nfo$[ infoindex] « "Add Coup: Finished Dispensing Buffer" 
savevars 7 # "restart.dat" 
infoindex - infoindex + 1 

;get RX syringe from holding racx 
if <syr_si2e(current_index)— 10) 

syringe - 1 "~ 
else 

syringe - 2 
endif 
grip - 2 
nest - 1 

call gathold.tcl 

syr grip (current index] - 2 

call stopchek.tcT 

; squeeze out solution in syringe m a , . 

if ( (syr_sizeCcurrent_index)= i06fisyr_anount[current - index]>drop_amoiintl) 1 1 <syr_ 

call waste, tcl ~" 

call stopcheJc.tel 
endif 

restart_info$( infoindex) * "Add Coup: Emptied syringe" 
savevars 7 , "restart, dat" 
infoindex - infoindex ♦ 1 

; asp irate solution in cup . „ 

restart info$ ( infoindex ) - "Add Coup: Began Aspirating Solution 

savevars 7 # "restart.dat" 

infoindex - infoindex + l 

asp amount - disp amount + anino_disp 

air~amount - prot~air ( syr_proceas ( current_tndex ) ] 

call syr_asp.tcl ~ 

call stopcheJc.tcl 
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f^«^^^"^Srt?dS2 " -Md Coup: finished Asperating Solution* 
infoindftx » infoinde* + i 

;c ji cup 

if (1 simulate robot) 

run clettncup.tcl 
final r 
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Procedure: DATRACK 

Purpose : places a gripper value in rack position 
Author : HJB 



;set syringe rack for current index 
syr_rack [ curr ent_index ) - rack_type 

; clear rack location 

«yr_rackloc(current_index] <* rack_location 

:save changed rack variables 
oavevars 5, "syringes, da t n 
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Procedura: delete . . .. 

tagS! • ««. the system 



local choice, t«»p,a$, si*e$ 

U t^i^{^ 5 S~;l^g;-««'Jl «- step.flnlshed « curreM.inde* - dole 
stop until the syringe is in the tumbler! " 



endif 



i *J?^oiS^? h ^5? r 5ri 6 >^ " o Pfotjroc t syr_prece S stdelet:e_ra W , ] .tep fi 
If { I choice) P P iS ln Progress. \nAre yew sure you want to delete pepti 

stop 
endif 

Sc^SupL;r itlftgfor "^---" 

Striagrequest "OSIHG SYRINGES" 
»yr_procesa [delete row] - nun procs 

scraenupdete 

ittinSee P -o^ S?^?.'^ 11 as finis *»*» . \nihe robot will eventually take 
else 

if (usar_choice — 3) 

"^P»Tn^o^^ ~ ^finished, 

^ e robot vill reaove this syringe automatically. \nPlease allow ROBO 
else 

•n£r Choicc '-^ you sure you want to delete peptide, - + syr je P code S( dele 

if (! choice) 

stop 
else 



endir 
endif 



size$ •» "fr na a ^ 



rt?ingr^^t^sY^^S Idelete - rOV) > ~ «op_f ini^h.d, 



■f T f ow * <*«lete row 

«Il syrrile.tcX 
fileclose 6 
«tringfree m SYSJPXZ£ m 
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syemag$ m "Deleting from Hot..." *• 

temp - dalete_rov 

while (temp <- nun syringes) 

syr jpepcode$ C temp ] - syr_pepcode$ [temp+1 ] 
syr_size[temp] - syr si2e( temp+1] 
syr~loc(tenpj - syr^Toc [ temp+1 ] 
syr~sequence$ [ temp } ■ 8yr_eequence$[tamp+l] 
syrj>rocesB(temp] - syr_process( temp+1] 
syr amino step (temp] - syr_amino_stap [ temp+1 ] 
syr~amino~count [ temp J • syr_amino_count [ temp+1 ) 
syr"reainftemp] - syr_resin( temp+1 ] 
syr~subs t ( temp J - syr~subst [ temp+1 ] 
syr~dodeprotS [ temp ) «~syr_dodeprot $ ( temp+1 ) 
syr^proces e t ime [ temp ) » 6yrj>r©cesstime( temp+1] 
syr_datetime$[temp] - syr_datetime$( temp+1] 
syr state o lor [temp] « syr~s tatcolor ( temp+ 1 ] 
syr~amount ( temp ) - syr_amount[ temp+1] 
syr^grlpttemp] - syr_grip( temp+1] 
syr~radc[temp} - syr_rack [ temp+1 ) 
syr"racJcloc [tamp ] - syr_racJcloc (temp+1] 
temp - temp +1 ~~ 

endwhile 

nua_syringes « num syringes - 1 
if (next_syringe >*~delete row) 

next syringe - next syringe - 1 
endif " 

endif 

sysmsgS ° "Saving data to file..." 

screenupdate 

if (nu&_syringes — o) 

; Set"~required amino to zero 

num codes - o 

setstringarray aalist_code$ ( l] # *" , 200 
setnumarray aa list_req [1], 0,200 
setnumarray aa lis travail (1), 0,2 00 
setnumarray aalist_conc (1], 0,200 
savevars 2 , "codes.dat" 
endif 

savevars S, m syr inges.dat" 
sysmsg$ « mm 
screenupdate 
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local bufj iacefinfoindex 
inf oindex * i 



else 

syringe « 2 
endif 
grip - 1 
nest m 1 

call puthold.tcl - j L) 
anSj 1 st °PcheJc.tcl 

else 

yringe « 2 
e. .if 
grip - 2 
ntst - 1 
call gethold.tcl 



andif 

call 
andif 

''dispense buffer 

P^sseSt; ^ «~ — - 

buf_ B ««ber - buf_pi^ 0 1 

■ r ^yriftge^J, ^^^f^-ProcessCcttrrent^inde^n 
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buf amount - buf amount/ division factor 
endif • 
run disp buf .tcl 

sol_avaiI(bu£_place) - sol avail [buf jplace) - bui_amount 
savevars i, "amino. dat" ~ ~ 
if (log robot) 

logrobot$ « "dispense : ■ + numtostrS (buf amount) + 11 nozzle: " + nuntostr$(bv 
call logrobot.tcl * 

logrobotS - "solution : " * prot buf$(syr ^process ( current_index ) ] 
call logrobot.tcl " 
endif 

restart_lnfo$C infoindex} ° "Add Deprot: Finished dispensing buffer" 
savevars 7. "restart.dat" 
info index • infoindex + i 

; aspirate buffer 

restart info$ ( infoindex ] » "Add Deprot: Started aspirating buffer" 
savevars 7, "restart.dat" 
infoindex - infoindex + l 
cup - 2 

if (*yr_ai*e[ current index )=- 10) 

syringe • l " 
else 

syringe - 2 
endif 

asp_aaount « buf_amount 

air_amount •» pr ot_a ir ( syr process ( current index ] 1 
if (syringe—2 } ~ 

air amount - air amount /division factor 
endif 

call syr asp. tcl 
call stopchelc.tcl 

restart_lnfo$[ infoindex] - "Add Deprot: Finished aspirating buffer" 
savevars 7, "restart. dat" 
infoindex - infoindex «■ 1 

; rotate 

rot time — 60 *prot_t ime ( syrjrocess ( current index ] ] 
call rotate. tcl " 
call stopcheX.tcl 
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/7.5) 



^ = 

^rocedurej UOSTEP ™" ™ 

Sri ST 0 ™ the "°« s^p for the syringe 
_Kotes: current inde. „ ^ 6yri ^ e t „ wor>c 

local process 

process - Protjroctsyrjrocessf current index)] 
i* (process — step reedy) 

syr_racJc[current ^Sex) o , 

syr_racJdoc{ current index , „ iT^T i2e(current - index J-2-5) 
=yr_loc [ currentindSx? - o 8 yO^[current_index) 

syr.aaino.steptcarrent.index] - i 
^ext.syriRae - next^^eT^ 

endif lalarn "^ ic error! ««t_syrin g e updated incorrectly- 
updateteble 

^£p^^ 5 p^<*««-l 

e J* 1 l©9robot.tcl 

it (dont_vait) 

•tay"-" 0 " " tiM - noU * P«'-robotti»e t .yr_proc BSB tcurrent i„d« n 
ir (dont_wait) 

^tiae.now - ti» e _nov ♦ P rot_robo ttiffl e f syr_proce Sa ( current index,, 
en «w-new - . lap8ed(0) 

e»Il br.akee^Tter ,U,C " $rCUrtQnt - index ' 
cp_aainoS • codas raw. t 

«11 coupUngtci' yr - Mino - st *Pt c « 1 w««t index) ] 

^o b ot S . » Add Coupling: . + codesrsyr.-.inolsceptcurrent.index,, 
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if (log L.jcedura) . 
• call' logrobot.tcl 
endif 

if (dont_vait) 

else" 6 "^ ° titte - now + Prot^robottinecsyr^procosstcurrant^indox]] 

ti»e_now - elapsed (0) 
endif 

elseif (process — step deprot action 1 1 process — step coupling) 
(?yY_racJc[current_index] !- 5 && syr rack[current Index) !« 6) 
call put_tum.tcl - - 

logrobot? m -Put Tumbler \n" 
if (log _procedure) 

call Xogrobot. tcl 
endif 

if (dont_vait) 

else 0 *" 110 *' " ti^e^now + pr ot_robottime [ eyrjrocess ( current_ind*x ) ] 

time_nov - elapsed (0) 
endif 

l i Zr pr ? c ? flot ^ etcurrent - indcx l 0 tine now + 60*prot time [ cyrprocess r current 
current^ index - 0 ~ *~ 

else 

call get_tua.tcl 

logrobotS « "Get Tumbler, overtime — "+numtostr$(titte now-syrprocesstimaf c 
if (log_procedure) ~ 1 

call logrobot.tcl 
endif 

if (dont_wait) 

elae ae " nSw " titte - now + prot_robottioe(syr_process[current_index]J 

tine now - elapsed* 0) 
endif 
endif 

elseif (process — step finished) 
;dunp off syringe in waste basket 
logrobotS a prot_step$ [process J 
if (log_procedure) 

call logrobot.tcl 
endif 

call finish. tcl 
;delete syringe from list 
delete_row - current_index 
stringfree "USING SYRINGES" 
call delete. tcl 

Stringrequest "0SING SYRINGES" 
current index - 0 
endif " 
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Procedure: DUMP 
P«rpo«o : drop finished syringe in basket 



ir (log robot) 
endif 

if (simulate robot) 

stop "~ 
endlf 

request "ROBOT* 

ROBOT. speed sparest 

ROBOT, nove "drop* 

ROBOT. speed sp_slov 

ROBOT. jog s 0,0, -drop jog 
ROBOT . finish ~ 9 

ROBOT .open 
dele/ 1O00 

ROr-T.jog_s O,o,drop_jog 
ROBOT, speed sp_med 
free 
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. ~S9~ 

; Procedure : EQUP1NXT 

; * Purpoee: Starring procedure tor robot and Hamilton 
Author: KJB 
, Notes: 



disableXeys 
initialization * o 

sysinit_message$ - "Please Wait. . . » 
robot_ready - 0 ; set a bit for each question 
syringe_ready - o 
screenon "SYSINIT" 
if (! simulate robot) 

call robhome.tel 
else 

robot ready l 
endif ~ 

if (i robot ready) 

tell "Initialization cancelled 1 * 
free 

sere %nbacX 
stop 
endif 

;/* Prepare syringe Pump */ 

if (! simulate robot) 

call syrinit.tcl 
el? 

. inge ready *• l 
endif 

ir (isyringe^ready) 

tell "Initialization cancelled** 
free 

screenback 
stop 
endif 

;/* Homing Motor */ 
syainit_nessage$ • "Homing Motor* 
-If ( 2 simulate_robot) 

call hememcr.tcl 

call safemtr.tcl 
endif 

sysinit_inessage$ - ■ ■ 
-screenupdate 

tell "Initialization complete** 
initialization - l 
screenback 
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Procedure: FINISH 
Purpose : duar 
Author : KJB 



Purpose : du&ps off finished syringe 



^oLtFfel^^r^***) - 5 " syr-rackf current index, «- 6 , 
endif " 

ir*rs1^*^'^ OC * ***** ***** if necessary 
< i 8 **-?*** ( current index ]-«io) y 

i \< s r r -^ xpCcurre » t index]— 2) 
nest » i — J ' 

grip - 2 

else 

syringe « 2 
endif 

call puthold.tcl 

syr rack [current index] - 0 

call stopchek.tcl 

nest » x 

grip ■> 1 

i ^^Y r - size i cu rrent index)— 10) 

syringe - 1 - J ' 

else 

syringe - 2 
ndif 

-^all gethold.tcl 
fyf-.gripccurrent^index) « 1 
f£F T rac)c t current index] « 10 
call stopchek.tcl 
endif 

folding rack, get with move grip 

syringe • 1 — J ' 

else 

syringe ■» 2 
endif 
grip » 1 
nest - x 
call gethold.tcl 



■yr.gripc current index 1 - 1 
call stopchex.tcT 
;if^in other rack, get with move grip 

if s^ge i "l <W<lnt: - indeac )--") 
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syringe - 2 
ehdlf 

call g e track, tcl 
s y*_grip [current index) « 1 
*yjr nek [ curr ent~indox ] - 10 
call otopchak-tcl 

endif 

;go to duap 
call dump. tcl 
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Procedure: egrffriT.n ^ ^ 

^ESt^r! KJB * 871:11196 rr ° a tha holding n«t 

' Notes: 



set syringe - 1 for lOnl , 2 for 2. Sal . 

%Z I? * 1 for BOVe ^riP * 2 for stroke grip 
nest - 1 for nest 1, 2 for nest 2 

if (syringe— i) 

raOc_location - 1 

rack_type - 8 
else 

reallocation - 1 
rack type m 9 
endif 

local get_repeat 
get_repeat * 0 
if (log_robot) 

caS°^ o ; o ;f?S 0ld ~ Syringe 5 " + numtostrs (syringe) + « grip : « - nu»tost 
endif 

if . -inula te robot) 
if (i getting rt) 

c* 1 * clrracJc.tc 1 
endif 

stop 

endif 

request "ROBOT" 
syringe^present - 1 

vhile ((isyringe^present)! J ( iget_repeat) ) 

if (get_repeat) 

call puthold.tcl 
endif 

ROBOT. open 
delay 500 

ROBOT. speed sp_fast 
i* (grip! -2) 

f i,f BOT,ttoVe -aixsafel- 
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; ROBOT - teuve ?mix8afe2" 
run- homeatr.tcl 

anair 

ft$ - "tap" + nu*tostr$ (syringe) + + numtostr* (gxip) 
ROBOT. speed sp aed 

ROBOT. move a$ 
ROBOT, finish 

if <(!syringe_present)&&(get repeat)) 

Sii r e£rtr tcl '** xSm ** 71115 C0DE IF NECESSARY 

endif 

ROBOT. spaed sp_slov 

if (grip— 2) 

while (Shone done) 

endvhile ~ 
endif 

e$ « -tlv- + muntostr$ (syringe) + «_« + nuatostr$<grip) «■ 
if (grip— 2) 

ROBOT. speed sp mslov 
endif — 

ROBOT, move s a$ 
ROBOT. finish 

if (grip— .2) 

if (syringe— L) 
direction - 0 

5?5 or - steps - sy^gi oac* 

enaxf — 
if (syringe— 2) 
direction — o 

aotor_steps m syrg2 back 
endif - 

call strfcatr.tcl 
endif 

delay 1000 
ROBOT. close 
delay 500 

if (grip— i) 

ROBOT. speed sp_slov 
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ttlM 

ROBOT. cpeed Bp vslov 
audit 

' ■ "tap" + numtostrS (syringe) + ° a + nuifftostrS (grip) + M « + nusitostr$ (nest 
ROBOT, move s a$ ~~ — . 

ROBOT, finish 

; . a$ - "mixsafe" + nuafcostrS(grip) 

ROBOT. speed spjned 
; ROBOT, move a$ 

call eyr_ch)c.t:cl ;find syringe 

get_repeat «» get_repeat + l 
endvhile 

if (lgetting_rt) 

syr_grip£ current index] » grip 

call clrrack.tcl" 
endif 

free 
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CSTRACK 

pick up bottle from any rack and return to safe position 



USE OF PROCEDURE: 

before calling this procedure set the variable: 
rack_type = the type of rack 

1 - 10ml rx 

2 - 2.5ml RX 

3 - 10al RT 

4 - 2 - Sml RT 

5 - 10ml TOM 

6 - 2.5ml TOM 

7 - probe 

rack_location - the location in the rack 

grip - i 

if (log_robot) 

logrobots = "ge track — rack: " + numtostr$(rack type) + « loc: " + numtostr$( 
call logrobot.tcl " 
endif 

if (simulate robot) 

i.' '! getting rt) 
-ull clrxack-tcl 

endif 

stop 
endif 

request "ROBOT " 
*OBOT. speed sp_yfast 

if (rack_type— 5} 

timu_continue-o 

while (!tuml latched) 

end while ~~ 
dlseif (rack_type— 6) 

tun2_continue-o 

while (ItUB2 latched) 

endwhile 
endif 

ROBOT. open 

found - 0 
robot i - o 
while" (I found) 

if <rack_location <— robot_i * rov_si2e ( rack_rype ] ) 
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endif 

nnS^ teDp$ * "Oc_high$ (rack^type ] + nuatostrS (robot i) 
ROBOT. move rack teap$ — 
ROBOT, finish " 
found « i 
else 

robot_i = robot i + x 
endif - 
end while 

ROBOT. speed sp_fast 

MBOT^Sint ( r!^i j telo aC,C - 1:yPe]M ^^i«(raOc_type)*robot_i) - rack_loe a *ion> 
ROBOT. finish ' 

ROBOT. speed sp_slow 

^:&: h °'''- rac,c - 3o9CracX - t ^' 

delay 500 
ROBOT. close 
delay 500 

ROBOT. speed sp slow 

if (rack_type!«7) 
ROBOT * speed sp fast 

Sti. S ?T- Ch ** tHl ;*ind syringe 

while (! syringe joresent) 
ROBOT, speed sp aed 
ROBOT. move "aixsaf el* 
ROBOT. move rack temps 



ROBOT, joint 6 r -Jog_temp 
cal^eVr^r tcl '** CKW,CE 11115 0002 IF NECESSARY **/ 

ROBOT. open 
delay 200 
ROBOT. finish 
ROBOT. speed sp slow 

^:lSTIh 0 ' 5 •■ rac,c - ^O9(rac,c - typ8, 



ROBOT. close 
delay 200 

ROBOT. jog_s 0,0, rack jog (rack type) 
call syr chk.tcl " 1 

endvhile "~ 
endif 



ROBOT. speed sp fast 
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ir Ugetti£g_rt) 

syr gripe current index] - X 

c*ll clrraclc.tcl"* 
eni 

if ( rack_type— 5) 

tunl_continue-l 
elseif (rack type— 6) 

tu&2_continue-i 
endir 

free 



( 



f 
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Procedure: GEX_TUM 

Purpose: get~syringe from tumbler 
Author: HJB 



rack type ■ syr_rac)c ( eurrent_index ) 
racX_location - syr^rackloc ( current_index ) 

call getracJc.tcl 

*Yr_grip[ current index) » l 

call stopchek.tcT 
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Procedure: HOMEMTR 

Purpose : turn on motor until top sensor is triggered 
Author : MJB 



home_done = 0 

;turn on motor for backward direction 

SHARK. writebit 224,0 
delay 500 

SHARK. writebit 404,1 

SHARK* readbit i_sense_home, a 

testerl = 0 

timer homemtr_time 

while ( ! a ) 

SHARK. readbit i_sense_home, a 
if (elapsed (homemtr_time) >30) 

;stop motor from homing 
SHARK. writebit 404,0 

;call error routine 
error_code « 4 
call error . tcl 



; stroke motor down 
direction - 1 
motor_steps =20 
call strkmtr.tcl 

; start motor to home again 
SHARK. writebit 224,0 
delay 500 

SHARK. writebit 404,1 
timer homemtr_t ime 

endif 
endwhile 

home done = 1 
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Procedure : INIT 

Purpose : initialize system variables 
Author : MJB 

; Protocol procedure descriptions and parameter mask 

param_buf = 1 

param_vol =2 

param~air = 4 

param_time = 8 

param_condition =16 

par ainjrobot time = 32 

param_stop = 64 

setstringarray prot_stepv fO] , "", -1 
setnumarray prot choice [ 0] , 0,-1 
step_not ready - 1) 
step_ready = 1 
step_wash = 2 
step_adddeprot = 3 
step_ addcoupl « 4 
step_deprotection « 5 
step_coupling « 6 
step_next amino » 7 
step_stopifnofinaldep = 8 
step_ finished = 9 

prot_step$ [step_notready] = "Not Ready" 
prot_step$ [step_ready] = "Ready" 
prot_step$ [step_ wash] = "Wash" 

prot_choice[step_wash] = param_buf + param_vol + param_air + 

param^time + par am robot time 

prot_stepS {step_ad3deprot] = "Add Deprot." 

prot_choice[step_adddeprot] = param buf + param_vol + param_air + 
param_ time +■ param robottime 
prot_step$ [step_ad3coupl] = "Add Coupl." 

prot_choice[step addcoupl) = param buf + param vol + param air + 
param_robottime ~ — — 

prot_step$ [step_deprotection] = "Deprotection" 
prot_choice[step_deprotection] = param_time + param stop 
prot_step$ [step_coupling] = "Coupling" 
prot_choice[step coupling] = param_time + param stop 
prot_step§ [step_nextamino] * "Next Amino" ~ 
prot_step$Istep__stopifnofinaldep] = "Stop If No Final Dep." 
prot_cho ice [.step stopifnofinaldep] = param condition 
prot_step$[step_l:inished) = "Finished" ~ 
prot_choice(step_finished] = param_stop 

; Variables to keep track of syringes in system 

num_syringes = 0 ; total number of syringes that have been input 
next_syringe - 1 ; next syringe that will be removed from the 
Incoming rack 

getting_rt « 0 ;flag to tell an RT syringe is in system 

dont_do_next » 0 ; flag to tell max number of syringes in 
system 
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clear_all_syringes = 0 ; flag to tell robot procedure to clear all 
syringes 

setstringarray restart_info$ [1] , -1 

; data for a sample 
setstringarray syr jpepcode$ [ 1 J , " " , -1 
setstringarray syr_sequence$ [ 1 ] , " " , -1 
setnumarray syr_size{l] ,10,-1 
setnumarray syr_rack[l] , 0,-1 
setnumarray syr_rackloc(l] , 0,-1 
setnumarray syr_loc(l] , 0, -1 
setnumarray syr_grip[l] , 0, -1 
3etnumarray syr_amount {1] , 0, -1 
setnumarray syr_j5rocess[l] , 0,-1 

setnumarray syr_amino_step[l] , 0, -1 ;holds current coupling 

solution 

setnumarray syr__amino_count [1] , 0, -1 ;holds current coupling 

solution 

setnumarray syr_resin[l] , .2, -1 
setnumarray syr_subst [1] , .45,-1 
setstringarray syr_dodeprot$ {1] , "N", -1 
setnumarray syr_processtime[l],0,-l 
setnumarray syr_s tatcolor [ 1 ] , 0, -1 
setstringarray syr datetime$ [1] , " w ,-l 
syr_pepcode$ [1) = ^Default" 

;// Record structure for amino acids, set once then retrieve from 
disk 

setstringarray acid_code$ (1] , "",200 
setnumarray acid_conc [1] , 0, 200 
setnumarray acid avail [11 , 0, 200 
fast_fill =0 

Number of amino acids that appear in sequences 

num_codes = 0 

; Number of steps in current protocol 

num_procs = 0 

; Robot Speed Variables 
sp_vslow = 5 
spjaslow =20 
sp_slow = 30 
sp_mod =50 
sp_med =70 
sp fast = 90 
sp~vfast = 100 

; Rack Variables 

racks full « 0 ;set to keep track of whether or not tumblers are 
full ~ 

rack6_full = 0 

rt_get = 0 ;set to RT rack location when RT in system 

rack type « 1 ; 1 = 10ml RX syringe 
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row sized] = 
row~size[2] = 
row_size[3] = 
row_size[4j = 
row_size[5) = 
row_size[6] = 
row size [7] » 
raclc_jog[lj = 
rack_jog[2] « 
rack jog [3] = 
rack~jog[4] » 
rack_jog[5] = 
rack_jog[6] = 
rack iog[7] = 
tracFjogtl] 
track_jog[2J 
track_jog[3] 
track_jog[4] 
track_jog[5] 
track_jog[6j 
track_jog(7J < 
rack_safe$ [1] 
rack_safe$ [2] 
rack_safe$ {3] 
rack_safe$[4] 
rack_safe$ [5] 
rack_safe$ [6] 
rack_sa£e$[7] 
rack high? [1 J 
rackTiigh$[2] 
rack_high$ [3 J 
rack_high$ [4] 
rack_high$[5J 
rack~high$ [6J 
rack"high$[7] 



6 
6 

20 

20 

8 

8 

5 

8 

8 

8 

8 

8 

8 

4 

■ 1 
» 1 

■ 1 

• 1 

= 1 
» 1 

* 2 



2 = 2.5ml RX syringe 

3 = 10ml RT syringe 

4 = 2.5ml RT syringe 

5 = 10ml tumbler 

6 = 2.5ml tumbler 

7 = probe 

8 = 10ml holding 

9 - 2.5ml holding 

10 = gripper 



-.5 
.5 
.5 
.5 
.5 
.5 



"RXSAFE" 

"RXSAFE" 

"RTSAFE" * 

"RTSAFE" 

"TUMSAFE" 

"TUMSAFE" 

"MIXSAFEl' 

M RX1 " 

«RX2" W 

"RTl"" 

W RT2~~" 

"TUMT_ M 

"TUM2 " 

"PRB w 



; / Syringe Variables / 

syringe =1 ; 1 i s io m i syringe, 2 is 2.5ml syringe 

tempjog =8 

; / Cup Variables / 

cup = 1 ;1 for.RGPl, 2 for RGP2 

cup jog = 4 



/ Waste Variables / 
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waste jog = 3 



; / Finished Peptide Basket Variables / 
drop_jog =» 8 

; / Check Syringe Presence Variables / 
syringe_sense_im$ [1] = "IM_1" 
syringe_sense im$[2] = "IM_2" 
syringe_sense*~beginl$[l] = "CKB_11" 
syringe_sense^beginl$[21 = "CKBJL2" 
syringe_sense_endl${U 88 "CK£_11 M 
syringe_sense endl$[2j » "CKEML2" 
syringe_sense~begin2$[l] = n CKB_21 w 
syringe_sense3>egin2$ [2] « W CKB_22" 
syringe_sense_end2$[l) = "CKE_21" 
syringe_sense_end2$[2J « "CKE_22" 
syringe_sense im$(3] = " IM_3 n 
syringe_sense3beginl$[3] * "CKB 13" 
syringe_sense endl$[3] = "CKEJLT" 
syringe_sense2begin2$[3) = "CKB 23" 
syringe_sense_end2$ [3] « "CKE_2J" 

; / Shark Inputs / 

s « 24 
a - 0 

/while (s==24 I I ! a) 
errorof f 

table_position = 1 
system_start = 0 
sense_table « 1 
sense_syringe = 2 
sense_press = 3 
sense_home « 4 
sensor latch = 551 
motor_?inish = 225 
sense_tuml = 5 
sense_tum2 = 6 
SHARK, putt able 

table position, system start, sense_table, sense syringe, sense^ press, 
ense_Eome, sensor_latcK,niotor_f inish, sense_tumT, sense_tuni2 

i_system_start - 1 

i_sense_table = 2 

i~sense~syringe « 3 

i_sense_press = 4 

i_ sense_home = 5 

i_sensor latch « € 

i_motor_Hnish « 7 

i_sense_tuml » 8 

i_sense_tum? = 9 

SHARK. readbit i_system_start, a 

status s 
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; counter inputs 
pulses_counter = 2 
putelapsed 10, pulses counter 
i_motor_pulses ~ 10 ~" 

; if (s==24| | !a) 

Lerg^ncy S^b^on" 160 '^ SWitCh t0 0NXnand PUl1 ° Ut the 

; endif 

;endwhile 

erroron 

; / Shark Outputs / 
o_tuml_start =220 
o_tum2_start = 221 
o_tuml_clamp = 222 
o_tuml_latch = 223 
o_grip_dir = 224 
°_grip_pulse = 225 
ojbuzzer =226 
o_syringe_locate = 227 
o_tum2_clamp = 240 
o_tum2_latch = 241 
o_start_counter = 414 
o_clear_counter = 415 
o_clear_sensor = 550 

; / Initialize Shark Outputs/ 

SHARK, writebit o tuml start, 0 ;U p 

!S^* Writebit oltum2-start,0 ;U p 

SSSf'^-W* o - tum Oatch,0 ; OP en 

SHARK -wrxtebxt o_tum2 latch, 0 ;off 

SHARK. writebit o tuml clamp, 1 ;oDen 

SHARK. writebit o-tum2-claS l ;^?f 

SHARK. writebit o^grip^dir, 0 ;0 ff 

SHARK. writebit o grippulse,0 ;ooen 

SHARK. writebit ©"buzze^O ;off 

; / Error Variables / 
error = 0 
error_code = 0 
err_syringe sensor = 2 
err_syringejpresence = 3 

; / Error Messages / 
error_message$ [0] = nn 
error__message$ [100] = "" 
error_message$[l] = "No Syringe Found" 
error_message$[2] = "Syringe Sensor Not Reset" 
error_messageS[3] - "Syringe Did Not Dispense" 
errorjnessage$f4] = "Motor Did Not Home" • 
errorjaessage$[5J = "Top of Syringe Not Found" 
error_message$[1011 = "" 
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errorjnessageS [102] = "" 
error_message$ [103] = "" 
error_message$ [104] = " n 
error jaessage$ [105] = "" 

; / Error Solutions / 
error_solution$[0] = "" 
error_solution$[100] =* 

error_solution$[l] = "Place a Syringe in the Space" 
error_solution$[101] = "Directly Below the Robot Gripper" 
error_solution$[2) = "Check to Ensure PLC is on" 
error_solution$ [102] « "" 

error_solution$[3J = "Manually Add Solution" 
error_solution$ [103] - "to RGP1" 
error_solution$[4] = "The Motor will Try to Home" 
error_solution$[104] = "When Error is Cleared" 
error_solution$[5] = "The Motor will Try to Find Syringe" 
error_solution$[105] = "Top When Error is Cleared" 

; / Alarm Variables / 
alarm_time = 1 

initialization = 0 ; set to 1 when equipment initialized 
current_index = 0 
simulate = 0 
syrg^done = 0 
running = 0 

rinsing_cup = 0 ;flag for washing cup in coupling 

cleaning_amount = 10 ; amount of DMF to clean the cup with 
sysmsg$ = nw 

; / Data Input Variables / 
prot file$ = "" 
reg_Tile$ = "" 

/Simulate Variables 
stop blinking = 0 
simuTate_robot «=» 0 
log_robot = 0 
logjprocedure = 0 
dontjwait = 0 

/Calibration data 
motor_saf e_step = 70 
syrgl_cal_asp - 14.5 
syrg2_cal_asp =40 
syrgl_cal_dsp = 14.5 
syrg2 cal dsp =40 
syrgl~baclc = 6 
syrg2Hback = 5 
drop_amount 1 = .5 
drop amount2 = .3 
dsp_Hrop_amountl = .2 
dsp_drop__amount2 «= .1 
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unstick amount 1 = .5 
unstick~amount2 = .1 

/Create robot log file 

filecloseall 

filenew 1, " roblog.dat " 

filecloseall 

stringfree 

robot_running » 0 
shake^running = 0 
check_motor = 0 
clean_cup_done = 0 

; load the current variables 

call loadvars.tcl 
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; Procedure: INSERT 

; Purpose: Insert syringes into the system 
Author: CES 



local choice, temp 

LlSSf™*?! 8 sequence (s) that will be inserted 
numseq * 0 

if (user_cholce — i) 

UUSt the operator to input the Peptide's code end sequence 
numseq ■* i 

tempcodeS(i] « *" 

tempseq$[ij - "» 

inputstring tempcode$[ij , -Enter the Peptide Code:" 
inputlongstring tempseq$ [i] , -Enter the sequence:- 

nunseq ■ o 
endir 

elself (user_cholce mm z) 

I.?? t f *quence or group of sequences from a file 
call seqfile.tcl 
endir 

J^!^» WhethQr tnere As e ««>«gh room for insertion 
ir (numseq ♦ nuin_syringes > ioo) 

nuaseq a ™ 0 WA Baxl3nua of " * numtostr$ (100-num^syringes) + - syringes can be ad 

end' " 

J# T ?i«° perBtor if inse rt action is cancelled 
xx (numseq mm o ) 

t*U -No syringe win be inserted" 
stop 
•ndif 

iv^^^?° in «^ he ^ ler the Pe P tide codes and sequences are valid 
»y«msg$ - -Checking for validity..." 
screenupdate 
camp - i 

rfhlle (temp <« numseq) 

if (strlen(tempcode$r tempi) > 8) 
sysmsgS - 
screenupdate 

Sii^S" "H?* c «»J#\n- + tempcodeSCtemp) + ",\nis invalid." 
tell -No syringe will be inserted." 
stop 
endif 

*? S " tempseq$[temp] 
call breaJcseq.tcl 
if (bs_error) 

sysmsg$ - "» 

screenupdate 

^-ellalarm -The sequence, \n- + lefts (tempseq$[ temp) , 200) + ",\nis invalid.* 
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t«ll **---» syringe will be inserted* " 
stop 
endir 

Af «yi^^ X ^ n i^° BipCDda$Cta2ap3 J } II ('couplings)) 
screenupdate 

^1*^2™ * c ? des and sequences cannot be empty." 
tell "Ho syringe will be inserted." 
stop 
endif 

syr_amino_countCtenp] - couplings 
teapcount(teap) - couplings 
temp e teap + i 
endvhile 

LSUfif* ^ sequences into the list of sequences 
sysasgS - "Inserting into list..." 
screenupd&te 

teap - nu»_oyringea+mnaseq+x 
while <teap>-current_row+nuaseq) 

s£-£i^!^^ Pl ' ^^Pcode$[teap-nu*aeq] 

™-f l "[teapj « syr_sizefteap-nuaseq) 

syr racJc(teap) - syr racJc(te^nuaseq] 

syr_loc[teap) m syr Toe ( teap-nuaseq ) 

2£-«2£f nC ?f ftMp, ~' B s^sequanceS [ teap^nunseq ) 
syr^proceesctenp] - syr jrocessfteap-nuaseql 
syr_aaino_ste P Cteapj . syr_aaino step[te*Pnumseqj 

S^-«^r?° Un ^ (tettp3 " ^_*^_cou^t(Sp-nuSeqJ 
syr_resin£teap) - syr resinTteap-nuaseq] 

!£~2!^ fte3ap3 " syrlsubstttem^iiuasSj 
syr^dodeprotSCteap) -"syr dDo^rot$ [ tSi-nuas^a] 

2S-™^ e$ Jf«VJ - syr^datetineSCtea^-nuaseq] 
2^ ^^ 0 : C ^ C,BP, - ^.statcolorCteap-nuasSj 
endvhile 

teap - current row 

while (teap < -^current row+nuaseq-i) 

^-^J^" $C I:f? P} " t^P'^Cteap^surrent'row+i) 
^sti2?*^ tCtettpI 7 ^countfteap^urreht roi+i] 
•T&^S«B Z W^^^syringes*nuaseq + I] 
syr_loc(teap} • o 
•y^jrocessfteap) - o 
eyr_oaino H step[teapj - i 

Sw-Suhs?!*^! " 8 ^- r "^( n ™.»yri«9es^nua«eg + l) 
m-ded^£?«?2 ^-S^tCnua.syringes+nunseq+lJ 
.^Jr^Sst!^Kp7 ^ 0 -™«*™*^-^^*™™**^ 
f^- d J ^J^ 1 ^ 3 f tcinp J " * - " ♦ tiae$() 

t2p - tS°^i ttnP] " "^-s^coiorcnun^syringes^nuaseq+l ) 
endwhile 

nua_syringes - nua_syringes + nuaseq 
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•yansgS - Saving data to z ila « 
Mvavars 5, "syringes. dat« 
sc tnupdate 
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; Procedure: IjQADVXRS 

; Purpose : Load system variables froza disk and 

* oat o^her variables accordingly 

; Author : HJB,CE$ 



local a 



; Define Variable Groups for data storage 

; amino acid rack 
clearvargroup l 
addvar l,fast fill,! 
addvar 1 , acid~code$ [ 1 ) , 200 
addvar l,aeid~conc(l) ,200 
addvar l,acid~availtl] ,200 

; Amino acids that appear in sequences 

clearvargroup 2 

addvar 2 ,nun codas 

addvar 2 , aallst code$(x],200 

addvar 2,aalist~req[i) ,200 

addvar 2,aalist avail CI], 200 

addvar 2 , aal ist~eonc [ 1 ] , 2 0 0 

; current synthetic protocol 
clearvargroup 3 
addvar 3 , nunjpr ocs 
adtf r 3,prot_proc(ij ,200 
add -r 3,prot_buf$£l),200 
addvar 3,prot vol(l),2O0 
addvar 3,prot~air(i) f 200 
addvar 3,prot~t±me(l) ,200 
addvar 3 , prot^r obotttne [1] ,200 

; reagents and solutions 
clearvargroup 4 
addvar 4,contents$[l) ,10 
addvar 4, sol conc[l],io 
addvar 4,»ol req[i3,io 
addvar 4,sol_avail(i3 , 10 

; current syringe data 
clearvargroup 5 
addvar S,nua syringes 
addvar 5 , syr>epcode$ [ 1 ] , 100 
addvar S,syr 3equence$[i) , 100 
addvar S r syr size[l},ioo 
addvar 5, syr"rack[l] ,xoo 
addvar 5,syr racklocri] ,100 
addvar 5,syr loc(i),ioo 
addvar 5,»yr_gripCi] ,xoo 
addvar 5,syr_a*ountCl] ,100 
add*-*r 5,syr res in ( 13, 100 
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addvar 5,syr_8ubst[i] ,100 
addvar 5 , syr~dodeprot$ [ 1 ) , 100 
addvar 5 , syrjpr ocess ( i ] , 100 
addvar 5,syr_aaino step [l], 100 
addvar 5 , syr_a3nino~count [ l ) , 100 
addvar 5 , syr_processtime f 1 ] , 10 0 
addvar 5,syr_datetitte$[i] ,ioo 

; Simulation flags 
clearvargroup $ 
addvar 6, simulate robot 
addvar 6,log_robot 
addvar 6 , log procedure 
addvar 6,dont_vait 

; Current step state for restart purposes 

clearvargroup 7 

addvar 7 , restart_inf o$ ( 1 ) , 20 

clearvargroup 8 

addvar 8,division_fac*or 

; Load variables from disk 

erroroff 

a - o 

loadvars l, « aaino.dat" 
a - a ♦ getstatus() 
loadvars 2 , 91 codes. dat M 
a - a + getstatus() 
loadvars 3 , "lastprot.prt" 
a - a + getstarus() 
loadvars 4 , "reagents. dat" 
a • a + getstatus() 
loadvars 5 , "syringes. dat" 
a - a + getstatua() 
loadvars 6, "simulate .dat" 
a ■ a + getst^tus() 
loadvars 7, "restart, dat* 
a • a + getstatus ( ) 
loadvars a , "division. dat ■ 
a • a + getstatus() 
erroron 
i* («) 

if^cta) 80 ** ° f saved data did not lo»*»\nDo you want to continue?" 

terminate 
endif 
endlf 



; Figure out the value for next syringe 
next_syringe - l ~ 

while (next_syz-inge <• nun syringes 66 syr process [ next syringe] > l) 

next syringe - next syringe + 1 ~ 
endwbile ~ 

syr_pepcode$[nutt_syringaa+i] - "Default" 
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syr_sequem v [num syring«B+l] « 
. eyr_loc ( num_syringes+i ) -—0 
eyr_proees« ( nuB_syr ingas+l ) - 0 

» ^ 1 in tho descriptions for the protocol steps 
while (a <- nun_procB) 

a r - V*+ S i $ * a 1 ■ " ot_step$ [ protjroc { a ] ] 
end while 
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Procedure: LOCROBOT 

£3£ a : ST" robot * ctien «- 



if (!dont wait) 

tiae_now - elapsed(O) 
final r 

fileopen 5, "roblog.dat" 

tSSSStltSSSS''*' * 03 -°"'-*«.01C:*0 2 .01f %-... * S ..ti B e $ (,, (ti ,e.n W . s 
fileclose 5 ■ 
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Procedure : FROTCENC 

Purpose : Allow operator to add, insert, or delete step 
Author : HJB,CES 



local temp 

if <user_choice — 1) ; add a procedure 

num _procs - nua_procs + l 
; Set the selected row to be the added row 
P»t_ row » num_procs 

; Set the column selection so that the user will be asked 
; to input the type of procedure to add 
protocol - 2 
prot _proc(prot row) ■» i 
prot_buf$(prot"rowj - »" 
prot_voltprot row] « o 
prot_air(prot~row) • o 
prot_time(prot_row) - o 
prot_robottime(prot row] » o 
elseif (user choice =■ 2) ; insert a procedure 

screenhold" 

num_procs num_procs •*• 1 
temp - num_procs 

; Move everything back in the protocol 
while (temp > prot_rov) 

prot_proc£teop) - prot proc(temp-l) 

prot__desc$(teap] - prot dese$[temp-i) 
*rot_jBuf$[temp] - prot_buf $[temp-l] 

.*rot_ vol (temp] » prot_vol(tomp-i] 

prot_air ( temp ] - prot_air(temp-l) 

prot_time(temp] « prot time I temp- 1) 

prot_robottime(tempJ -~prot_robottimeCtemp-l] 

temp - temp - l ~ 
endwhile 

; Set the column selection so that the user will be asked 
; to input the type of procedure to add 
protocol - 2 
prot jroc ( prot row] - l 
prot_buf $Cprot~row] - mm 
prot_vol [ prot_rav ] - o 
prot_air[prot~rowj «• o 
prot_time[prot row] • o 
prot_robottime(prot_row) « o 
elseif (usar_choice — 3) ; delete a procedure 

temp — prot_row 
if (temp < num_procs ) 

; Move everything forward in the protocol 
while (temp < nuzn__procs) 

prot_proc(temp] « prot proc[temp+i] 

prot_buf$(temp] « prot"buf $(tesp+l] 

prot_vol[temp) - prot vol[temp+l] 

pro t_a ir C temp ] « prot~air[temp+l] 

prot_time[temp] - prot_time ( tempH ) 
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-ST- 

endvhile 
else 

; The selected row cannot be the deleted row 

prot_row « prot row - 1 
endif ~ 
ntiin^procs » nu»_procs-l 
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' Procedure : PROTCI*IK 
Porpose : Handle clicking on a column 
Author : KJB # CES 



local a, a$, choice 

lf A Jd2!!t. the i US ? r to enter da ^a tor a cell 
T 2 ; cfaan 9 e the procedure 

choice , prot_step$ ( l] , "Pick a procedure:" 

wi2?° lce :* P rot -I>roc£prot row] 64 choice>0) 

prot_proc(prot row) - choice 

prot_buf$[prot"row) ■» «• 

prot_vol(prot row) « o 

prot_air [ prot^r ow ] « o 

prot_time[prot row] - o 

prot_robotti&e(prot row] « o 

prot changed "1 ~~ 
endif 

el i? i f riST 5 ^^ 1 "? 3 } ; the buffer solution name 

as - prot_buf$[proc row] ~ 
xnputstring a$, -Input Buffer Kane" 
If (a$ I- prot_buf$(prot row)) 
prot_bufS[prot row) - a*$ 
prot changed -~i 
endif " 
endif 

e1 !' * ^^Sr 5 ^ 0 ? 1 "? 4 ) ' Mter the buffer volume 

* ^^^-f^^tProtjproctprot^row)) & parain vol) 
a - pro t_vo 1 [ pro t_row ] ~ 
inputnua a r -input Voluae of Buffer or Excess" 
if (a I- prot_vol(prot row]) 

prot_volcprot_rov] -~ a 
prot changed m \ 
endif " 
endif 

el ?? i fn^° t K C ? X T 5) ; «*er the *ir voluae 

» ( £™^-f ho f c ?Cprot_proctprot_row]] & paras air) 
a - prot_air(prot row) ~ 
inputnun a, ■lnput~Voluna of Air- 
if (a im prot_air[prot row]) 
P r °t_airtprot — row) «~~a 
prot changed « l 
endif ~~ 
endif 

<ll S A fJS^H C ? 1 "T 6) ; enter the tine 

. f^??J Celprot -P roc fP rot row)) £ parain tine) 

• - prot_tiae [prot_row] ~ 
inputnum a, "input Tl&e (nin)» 

" <* l- protti»e(prot row)) 

prot__ti&a(prot row) »~a 

prot changed m 
endif " 
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endif 

feloeiX (protocol— 7) ; ontor tha robot use tlno*. 

if ( prot_cno ica ( pr ot_proc ( pr ot row] ] & paraa "robOttime ) 
a - prot_r obottiaa ( prot row)" " 
inputint a, "input: the 'robot in use' time (eoc):" 
if (a I- prot robottioe(prot_rov]> 
prot^robottaaetprot row) - a 
prot changed - 1 ~ 
endif " 
«ndif 
endif 
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; Procedure : PROTLDSV 

f S2S° | «ve a protocol 



local choice f tCBpchangftd 

cho^e I? there iS 11 vaIid specified lor each step that needs one 

while (choice <- nuajproca) 

Sot fc ro^- tt Soi« PUt a type for ste P «»* one." 



user choice « o 
stop" 
endif 
endif 

choice - choice + i 
endwhile 



r^rot^roc^? ^M" tOC °i s Tt rts vith and ends with Finished 

tellaldS -in"! ?^P T raad r I' P^t^proccnuajrocs] step finished) 
user c^oTce^ o P 1 BUSt w3& a ' Re55v ' step\nand P ?nd viSTa ' Finis t 

stop" 
endif 

xr ( prot^changed ) ' 

endif prot - chanaed * - I>o you want to save your changes \nto a file?- 
endif 

// Save Protocol to Disk 

l?^5!lS°^ f Ji* $ -- Sw i *-'\»(0o MOT .dd the Extension)- 

user_choice - o 
stop 
endif 

5f? t r file$ " P^t^fiieS ♦ -.prt- 
filetest choice,prot fileS 
if (choice) — 

if >C (Tc^oic4) WThat ^ists. \nOvervrite?- 

uaer_choice - o 

atop 
endif 
endif 
erroroff 

savevars 3,prot files 
* r (g«tstatus()7 
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erroron 

step 
endif 
erroron 

prot changed - 0 
endif 

if (user_choice 5) 

// Retrieve Protocol from DisJc 
filetest choice, °*.prt ■ 
if (cholce>0) 

fllelist "♦.prt",files$fl] 

aenuarray choice, f iles$(l] , -Pic* a Pile to Load:" 
if (choice i-o) 

eavevars 3, "lastprot.prt" 

erroroff 

loadvars 3 , files $[ choice] 
status choice 
if (choice) 

loadvars 3,"lastprot,prt" 

tellalara -Th^t was an invalid protocol file.\nThe last protocol was re J 
prot_cnanged ■ l 
else 

savevars 3 f -lnstprot.prt- 
prot changed - o 
endif 
erroron 
endif 
else 

prot_changed • i 
tell "No protocol files exist." 
endif 
endif 

if (user_choice —6) 

uaer_choice • -i 
else 

user choice - o 
endif 
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dlsablekeys 

; initialize variables 
nun ' JVtM m 7 

si_name$(lj « "System start" 

si_nama$(2] - "Table Sensor" 

si_name$[3) - "Top of Syringe" 

si_na&e$[4) - "Low Air" 

si_name$[5) - -Motor Hose" 

si nase$(6] - "Tumbler /l in Position" 

si name$f7] - "Tumbler #2 in Position" 

si_name$[8] - "" 

si~name$t9] *■ ■■ 

filenames [10] - "• 

si3naBe$(li] - «■ 

si~name$(i2] "" 

si_name$[i3] « "■ 

si~name$ [ 14 ] mm 

si^nameStiS) ■* 

si~naae$[i6] » "■ 

si~nama$[l7) - •» 

si^naaeSCiS] » •« 

si~naae$[l9] - •« 

si~name$[20) ■■ •« 

; change this line to reflect the addresses of the inputs 
, Keep the first parameter at one 
SHARK. puttable 101,0,1,2,3,4,5,6 

nusiw—tputs * 8 

so_naaeS[i3 - "Tumbler Motor #1" 

so_nama$[2) - "Tumbler Rack Locator #1" 

so_name$(3] - "Tumbler Syringe Clamp 

ao_naae$£4j - "Tumbler Motor #2" 

so_name$(5) - "Tumbler RacX Locator #2" 

so_name$[6] « "Tumbler Syringe clamp #2" 

so_nama$[7J - "2.5ml Syringe Locator" 

so_na»e$[8] » "Buzzer" 

so^naseSfg] • 

so_name$[io] - "« 

so_name$ [ 11 ] ■ ■" 

so_name$[l2] - "* 

so~name$[l3] - "» 

so~name$[l4] « "" 

so__name$[l5] - "« 

80~name$[i6] - ■« 

so"natte$£i7j - ■« 

so_name$(i8] - 

so~name$ ( 19 j « "« 

so3name$(20) - •" 

so~address(i] • 220 

so_addresB(2) - 223 

so_address(3] - 222 

so_ ~-*dress[4] - 221 
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•o_addroae(»j - 241 c«*t 

BO_addr«ti (6] -m 240 ^ ' 

BO_addr««5(7j - 227 
*a_addresa(8] - 226 
so_itddress(9] - -1 
6O_addreee(i0} - -1 
eo_addrees[H] - -1 
ao_addresa ( 12 J m -1 
so_addrese(i3] - -1 
so_addresa(14] - -1 
flo_addxe8fl[15] - -x 
so_addresB(i6] - -1 
«o_addrese(i7] - -1 
fio_addreaa[l8] « -1 
so_addresG ( 19 j « -1 
ao_address(20] -1 

a - 1 

while (a <- 

numoutpute) 
readbit so address (a] # so onfal 
a « a + 1 ~ 
endvhlle 

stop&e * 0 
screenison - 0 
doterminal - o 
teraina l_rnnning • o 
choice - 0 
while (! stop&e) 

if (choice) 

writebit to addreasc choice),' so on(choice) 

ao on (choice] « !so on (choice] ~ 

choice • 0 ~~ 
endif 

a - 1 

while (a <— numinputs-io) 

readbit a+l0o r 8i w on(aj ,si_on(a+l] ,si_on(a+2] , si_on(a«] ,si_on(a+4 ] ,si_on(a+5 
andwhlle 

while (a <- nuninputs-5) 

readbit a+ioo,si_on(aj ,si_on[a+l) ,si_on(a+2] ,si_on(a+3] ,si_on(a+4 J 
eadvhile 

while (a <» numinputs) 

readbit a+i00,oi on(al 

a ■» a ♦ 1 
endwhile 

if (dotenainal) 

if (i terminal running) 

run terminal, tcl 
endif 

do terminal - o 
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if (iecreenison) 
* vcreenon "tastio* 

mablakoys 

scraeni&on ■ 1 
endif 

end while 

request "robot" 

ROBOT, command "HOMANUAL" 
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; Procedure : protocol 

J fjJfF° BC : operator to change protocol data 

* Autho r i MJB,CES 

local choice, s iaulat exchange, teiap 

prot~rov m o 
prot^changed m o 
prot~xlle$ - mm 
protjrocfO] - o 
prot_proc[100) m 100 
scxeenon "protocol" 

user_choice • o 

while (user_choice 1- -l) 

// Clicked on synthetic Protocol Box 
if (protocol) 

screenupdate 

if (neact_syringe <• l) 
call protclUc.tcl 

endif 

updatetable 
screenupdate 
protocol - 0 
e* *if~(user choice mm 7) 
. Change division factor 
t*mp ■ division factor 

inputnua teap, "Enter the new division factor:" 
ix (reap > 0 4& temp < m 99.99) 

division_f actor « temp 

savevars 8 , "division.dat" 

screenupdate 
endif 

user_cholce * 0 

el ?J i fri (user choice && next_syringe <- l) || user choice — 6) 
if (user_cholce >- 1 tk user choice <- 3) 

call protehng.tcl " 

updatetable 

screenupdate 

uaer_choice - o 
eleeif"(uaer_choice >- 4 fit user choice <- 6) 

call protldsv.tcl 

updatetable 

screenupdate 
endif 
endif 

endvhile 

;Sav* protocol to permanent file 
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savevars 3, -laatprot.prfc* 
user choice • o 

initialization - o 
endit 

; Pill in the descriptions for the protocol steps 

while (a <- nun_procs) • 

r^Vrf $taJ " P^-^PSCpretjproctalJ 
endvhlle 

s Greenback 
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* 



Procedure: PUTHOU3 
Notes: 



set syringe - x for 10ml f : for 2.5ad 

CnrXp m 5 for nni/A -> ««. _ 



-w- — - * ioc iUBi , 2 ror z.sai 

- 1 f ° r nove grip f 2 for stroke grip 
M8t * 1 for nest l, 2 for neot 2 



local a 

it (syringe— i) 
rack_location - l 
rack type - 8 

else ~ 

rack_location * i 
rack type m 9 
endif " 



if (log_robot) 

SxtSSZJSS^ ~ Syrin ' e ' " + ^"str^syringe) ♦ - grip , - + nuate8 
endif 

if (simulate robot) 

i '! getting rt) 
-all datraEk.tcl 

endif 

stop 
endif 

request "ROBOT** 

HOBOT. speed sp_fast 

;a« - "mixsafe"* mmtostr$ (grip) 

/ROBOT, so ve a$ 

ROBOT, speed sp nod 

a$ - -tap- ♦ nu»to at r$( syringe) ♦ -_- ♦ nuatostrS (grip) ♦ -_- + nuntoMrS <n«t) 

ROBOT. move a$ 

if (grip— 1) 

ROBOT, speed sp slow 
else ~ 

ROBOT, speed sp vslov 
endif ~" 
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-7¥~ 

SosoV'S^g nmtortr$(eyring*) numtostrS( ? ..p) + ♦ nuatoWfAes*). 

Robot." finilh 



ROBOT, open 

if (grip— Hfcayringe— »2) 

delay 500 
else 

delay 250 
endif 

if (grip— l) 

ROBOT, speed sp med 
else *~ 

ROBOT, speed sp slow 
endif 

if (grip— 2) 

run honeatr.tcl 
endir 

;checX motor pulses 

if (grip— 2ttcheck motor-) 

while (Ihone done) 

endwhile 

call findtop.tcl 
run honeatr.tcl 
endif 

ROBOr"S?e s «s ,atOStr$(Syrin9e) + + nuntostrS (grip) + «_* + numtostr$(ne*«M 
ROBOT. finish 

if (syringe— 2) 

SHARK. writebit o syringe locate, l 
delay 1500 ~ ~ 

SHARK. writebit o_syringe locate, 0 
endif ~ 

delay 500 

if (grip— Itfcsyringe— 2) 
ROBOT, speed sp_mslov 

+ numtostrSC syringe) ♦ ■ ■ + nuatostrS (grip) + - * + nuatostr$ (nes* 
Rwowi • move s a$ *™ 

ROBOT. finish 

ROBOT, jog s 0,0,. 25 
ROBOT, finish 

ROBOT .close 
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delay 250 

ROBOT . open 
d*\ay 250 

^ fl tr$ (syringe) * + nuatostrS (grip, * + nuBtcsrrs (nest 

ROBOT, finish 
endif 

a$ - ■miacoafe" + numtoetr$ (grip, 
; ROBOT. speed sp_fast 
; ROBOT. move a$ 

it (grip— 2, 

while (ihomo done, 

endvhile ~ 

run sareatr.tcl 
endlf 

if (Jgetting_rt) 

call datracJe.tcl 
andif 

free 
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, . 

; put a bottle in a rack from the any safe position 



USE OF PROCEDURE: 

before calling this procedure set the variable: 

rack type to reflect the type of bottle that is being picked up 
«*>ot_lQcation - the location in the rack 

the following variables should be set in the gen_init.tcl procedure: 



row *i" C rack_type ] - number of locations that are parallel to the track 
rack iogcrack typ«l - distance to jog down to get bottle 
trac *_J ®9 ( rack_type ) - distance between the locations 
ra «_°**«$Crack_typeJ - safe position 
rack ia_i$ [ raek_type ] - intermediate point /l 
rack_ia_2$[rack type] 
rack_i*_3 $ frack"type J 

rack_hlgh$[rac3Ttyr^J - high point names for this rack 

(the procedure adds the location number to this nana so that 
the robot moves to the first location in a row and moves the 
track to the appropriate final location. So rack high$ should 
look like: "SAHJUJ") ~ 

NOTES: 

If there are more racks than bottle types, you can have many of these 

or procedures for each type. For example, create a new procedure 
c^xxeo gecrackl.tel and call each of the arrays by a different name, so 
racx_nj.gh$ [ rack_type ) could be renamed racXl_high$ [ rack_type J , etc, 

if (log robot) 

logroEotS - "putraek — rack: « + nuntostrS (rack type) + - loc: « + nuatostrS' 
**" ** iogrobot.tcl "~" 
rfndif 

if (simulate robot) 

if (lgetting_rt) 
call da track. tel 

endif 

stop 
endif 

request "ROBOT* 
ROBOT, speed sp_ vfast 

if (rackjtypems) 
tumi_ cont inue- 0 
while (ttumi latched) 
-~dwhile 
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olsair ( rac_ -_type— 6 ) 
- ttxa2_continue«0 

while (ltun2 latched) 

endvhila ~ 
andif 

found - o 
robot i*l 
while" (J found) 

if (rack_location <- robot_i * row_size(rack_typei) 



if ( (rack^type— 3) J I (rack type— 4) ) 
ROBOT .move "rack_ia" 



endif 



"^- tea P5 - rackji±gh$[rack type] + nuntostr$ (robot i) 
ROBOT. move rack_temp$ ~ - ' 



ROBOT • finish 
found m i 
else 

robot_i - robot i + 1 
endif - 



endvhile 

ROBOT. speed sp_fast 

WB^fjol^t^ a ^4 0 ?e^ aCK - tWel * ( (row ~ Bi2a f racJC - t yP e J * robot ^ i ) * racJc_location) 
ROBOT! finish ' " MP 

if ^IS!i C)C - ty ? c ~ 5) 1 I CracJc^type— 6) | | (rack type— 3 ) ) 
ROBOT. speed sp_vs low " 



ROBOT. speed sp slow 
endif " 



if (rack^type— 7) 

ROBOT o©g_s 0,0, (-rack_jog(rack_type)+.5) 



^R0BCT.jog_s 0,0, -r ack_ j og ( rack_type ] 

ROBOT, finish 
ROBOT. open 
delay 500 

ROBOT • speed sp slow 

ROBOT. speed sp_fast 

if ((getting rt) 

call datrack.tcl 
endif 

if (rack_type— 5) 
tuni_continu©-l 
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-rr- 

Procedure: POT TUM 

Purpose: Put*~syringe in tumbler 
Author: KJB 



i£ < <^_ r *^tcurrent_index) !-iO) 
it <syr_size[current index]— 10) 

syringe - 1 
else 

syringe - 2 
endif 
grip « 1 
nest - x 
call gethold.tcl 
»yr_rack [ current_index ) - 10 
sy^racxloct current index) - 0 
syr_grip( current inoex) - 1 
endif ~~ 

j change grip if needed 

« j^-^r iP ( curr ent_indax ) — 2 ) 
If (syr_size[ current index]— 10) 

syringe - 1 ~ 
else 

syringe ■» 2 
endif 
grip - 2 
nest * 1 

«• "1 puthold.tcl 
c. .1 stopcheJc.tcl 
grip - 1 
nest — x 
call gethold.tcl 
call stopcheJc.tcl 
endif 

;t ind next available tumbling rack space 
if (syr sixec current index]— 10) 

rackjcind - 5 ~~ 
else 

rack kind * 6 
endif ~ 

tUB_current « 0 
old^tun - x 

*yO:acxloc [ current_index ) - 0 
while (eyr_racklocCcurrent_indax)— o) 

no_index * 0 
tum_current • 0 



while (lno_index) 

narrayfind tua_current , eyr_raOcloc C tuta current+l ) , old turn 
< r ( tum_curr ent ! »- 1 ) ~ — 
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endif 

elseif (tua_current«— l) 

endif 
end while 

old_tun « old tUffl + i 
endvhile 

if (syr^sizefcurrent index)— 101 
^^syr^rncJc ( current_iHdex J - 5 

^syr_racJc[ciurrent_index) - 6 

SlFZJZF*™ 3 * in tumbling rack 
rac* type - syrjracJc( current index) 

call stopchek.tcl 
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' Procedure : * fiOKXTOn 

l tSSSSl 38» — » *>r *^ input ' 

tt«er_choice « o 

screonon "aonitor«~ 
an&bleJceys 

mnning - 1 
run robot. tcl 
run shake. tcl 

while (running) 

if (user_choice J- 0 ) 
i* (user choice « * ii 

eiie laittr " " N ° BO « syringes My be added." 

die&blekeys 
screenhold 
call insert;. tcl 
updatetable 
screenupdate 
enableJceys 
endlf 

uaer_choice - o 

updatetable 
screenupdate 
•nablekeys 
, u *«Lchoica • o 
elaei* (uaer_choice — 4) 

2?S2ffi 

rtringfree "CAlxruiATTwe- 

uaer.choice ^cT^ C 
elaeif <Ua« r _choice — 5 ) 

call reagents, tcl 

us« choice - o 
eleeif (user_choice — «, 

call aainoTtcl ' 
^ choice - o 

dieeSJLeJs myrXn *—- • vorJcs if 'initialization - 0 < 

call clearall. tcl 
enablefcey* 
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user caxoice - o 

elseir r (uaer choice — ai 
disablsJceyiT 1 
call snapshot. tcl 
enableJceys 
user_cholee - o 
elseif (user choice — 20) 
call egupinit.tcl 
screenupdate 
enableJceys 
user_choice - o 
elseif (user_choice -o 2 1) 
; change protocol 
call protocol. tcl 
uaer_choice • o 
elseif <user_choice «- 22) 
call teatio.tcl 
uaer_choice » o 
elseif (user choice — -n 

; Verify termination of system 

ix (SS-cSSice)"^ y ° U SUrC you «»* *° terminate?^- 

call stopntr.tcl 

terminate 
endif 

user_choice - o 
endif 

disSrSeyr V <D nuB -»yria9«»*X « syr^rocessCcurrent.row]<-i) 
screenupdate "~ 
sereenhold 
call syrinfo.tci 
updetetahle 
screenupdate 
enableJceys 
endif 
else 

«n£f- row - «rr«t_rov 

current col • o 
endif " 
endvhlle 
screenon "logo" 
initialization « o 
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Procedure : NQCXSZEP 

Sor e 5 S|ySs° Ut nWCt for a syringe 

Notes i input — nsjprocees 

na_aaino 
ns~dodep$ 
Output — nsjprocess 
ns amino 



; should*^* °* M Imin0 aGid ' f igure out vhat tte next P«cess 

if ni Pr Sf=? r ° C(ns - procefiS 3 — 8te P nextamino) 
ns amino - ns_a»ino + 1 

Af <««_aiaino <» couplings) 

nsjprocees - a 
else 



andir 

9 



najrocesB - ns^process + l 



elifif t foro? 1 B r fi?L if n ° d *P ro *«*±°n, figure out if we ere done 
ir^nif^o^ ~ step.stopifnofinaldep) 

elae" Pr ° CeSS " ns -J ,r °cess + 1 



nsprocess « nuaprocs 
endir 

;^r'hervise # just add one to the process number 

cndif PrOCCSS " ns -P roc * a * * 1 

setstringarray restart infoSfl],*" -l 
aavevars 7 , -restart. da t- J ' 
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Procedure : HEftGERTS 

- All 

Author ; kjb 



Purpose ; Allow operator to change reagents 



local a$, a, change 
dlsableJceys 

; £L£ SST^ZUStSSTtoJE ^ ° BM *»* ^ 

while (a <« 4) 

aol_colorfa) - 4 ~ 1 J; 
elae 

sol colore a] - 15 

endlf 

a - a + 1 
endwhlle 
sol_col » 0 
sol~rov m 0 
sereenon "reagents** 
enableXeys 
user_caoice - 0 
vhili <user_choice •» -i) 

if (sol row) 
if (sol_col— 2) 

*$ - contents? (sol row] 



- contents? (sol row] 
iFVeTT 1 "* aS '" In P« Probe Contents" 
e I«Lir contents $Csol_rowj && aS - 
contents$(sol row] • a$ 
change - 1 ~ 



endlf 
alseif (sol col— 31 



^v^wwt— Jj 

a " s ol_conc(sol rowj 
xnputnum a, -input Concentration" 
-I? sol_conc[sol row) &4 a > oi 
sol_conc(sol row] -~a ' 
change - 1 — 
endlf 



elaeif (sol col— 5) 

J " ?«l_avail C sol rowj 

inputnua a,*Input-Available Volutae- 

^^K^kSTl » -l.reotsol.rown 



sol colore sol row] - 
endlf - J 



4 



change - 1 
andlf 
*ndif 
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updat*.*able J 
sol^rov • o 
sol^col - o 
eiaeif (user choice — \\ 
savevars 47-reagants.daf 
user_choice - -i ,flat 
eiseif (user choice — 2) 
user_choice - -i } 
it (change) 

if k (aV E * it vlthout saving?- 
elie*^" 4 ' ""^nts.dat- 

user choice - 0 
endif ~ 
endif 
endif 

endwhile 

acreenbacic 
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Procedure: ROBHQHE 

Purpose: Home the robot 
Author: ktb,ces 
Notes: 



local choice 



request "ROBOT* 
sysinit messages 
robot_ready - 1 
screenupdate 



Ara Power 



£?r ot - r ** d 3r " robot ready I 2 
ROBOT, clear ana " y 1 

screenupdate 

; Home the robot 

robot_ready - robot ready I 4 
screenupdate ~" 

i? k (?So";, " IS the Robot *» position?" 
ROBOT, ma nu ale 

8 ^etnupSete aqe$ * iS in «* " 

a"ifc X cnolcef°5!s tteXbo? ^TL^^^ l eaCh to ***** it\nln a 

If (ichoice) " * Safe PM"ion?\n«Ho> cancels initialization) 

robot_ready » 0 
stop 
endif 
endi* 
else 

£L*SL<5 th ^ r ° b0t is in HOKEBERE position */ 

if (2ot«) 15 ^ ROb0t in ^sXnHOKEHZRE portion?" 
^m* choice, «Are you sure?- 
ir (] choice) 

GJZwSZF** *■ its h08e b0ttn<18 •/ 

W^WageS - -Robot is ^ 

^1 -The robot is now in aanual »ode.\nUse the teach pendant to P lace\nit in 
/* home robot */ 
choice - 0 

ir (1 choice) 

-obot_ready - o 
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stop -/6? -~ 



8 ffi&e£ M »«* - "Hcing sequence in progreas „ 

Robot. coBaand "nomanhal" 
ROBOT. coBwnd -HOUKP- 

enirf t - raad > r " "bot.ready , < 

»SS 8<,eS " " M ° Vi "9 to VERIFY...- 
aOBOT.eoaaand "komjujuai." 

«08ot. finish 
aSe i 2h t "' t, * 88a9e$ " "" 

stop ~ 
endif 

ROBOT, open 

rebot.ready = ro b o t _ ready , 



8 

/* ROBOT 



is at VERIFY Position */ 
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Procedure: ROBOT 

Purpose: Control the robot movements 
Author: MJB,CES 



Notes ; 



if (robot_running) 

stop 
endif 

local last_current, a 

robot_running = l 

system_paused = 0 
error = 0 
pause_system = 1 
current_index = 0 
timer start_time 
time_now = start_time 

while (running) 

if (initialization) 

stringrequest "USING SYRINGES" 

if"nSSJiSSSS ™oi n the systera - set the start time to 2 «° 

timer start_time 
time_now = start time 
endif — 

; check if robot has been paused 
call stopchek.tcl 

if^STi-i^?} 1 th ? s y rin 9 es mu st be cleared 
xx (clear_all syringes) 

call clearaTl.tcl 
endif 

cfu d w SSLdJ!a e that r ° b0t WU1 W ° rk ° n: t^index 

syring^ 116 the r ° b0t haS a s y rin 9 e < Perform the next step for the 
while (current_index > 0) 

syr_statcolor {current index] = 1 
last_current = current index 
updatetable " 
call dostep.tcl 



syr_statcolor[last current] = 0 
updatetable ~ 
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-/or- 

i f ( current_±ndex ) 

stringrequest "NEXT STEP" 
ns_process = syrj>rocess [current index] 
ns amino - syr_amino_step [current index] 
ns dodep$ « syr_dodeprot$ [current"index] 
; Find the codes for the syringe ~ 
bs seq$ = syr_sequence$[ current index) 
call breaicseq. tcl ~ 
call nextstep.tcl 

syr_process[current_index] ■ ns process 
syr^amino_step [current index] = ns amino 
stnngfree "NEXT STEP"" ~ 
endif 

savevars 5, "syringes.dat" 
endwbile 

stringfree "USING SYRINGES" 
endif 
endwhile 

robot_running = 0 
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ROTATE 

Author 




if (log_robot) 

logrobotS «= "rotate * • 

call logrobot.tcl " ^ ie: " + nuntostr* 'rot tioe) 
end if — 

if f simulate robot) 
stop ""* ' 

endif 

local wait 
request "ROBOT" 
ROBOT: speed sp_slow 
timer wait 

R ??? T ' sp * ed 150 

P-OT e cSf Cd i Vait)< -'«t tine) 

ROBOT, finish M1XSAFE2 . MIXING , KIXSAFE2 » 

7 ROBOT, joint 4,90 
indJggI- j0i,It 
ROBOT. speed sp_ slow 

free 
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; Procedure: SAFEHTR 

Purpose : move notor to a safe position 
; Author : HJB * n 

direction « l 

aotor_steps » notor_saf e_step 
cail strtatr.tcl 
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-/T2 - 



NAME; SHAKE — — — — _ _____«__. 



if (shake running) 

stop 
endif 

local a 

shake_running - 1 
tuai_latched - 



™a*_iatched - i 
tun2_latched - 1 
tuai_continue • 1 
tua2 continue - i 

while (running) 

if (!si_ulate_robot) 

; turn tumbler 1 on 
SHjac-writenit o.tu^atcn , o 

an Sf- Continue " o 

tual latched - o 
and if 

SHARK. writabit o tual start , 

^-^it wJSe;^; 1 

^^K-readbit i.sense, tu _l , a 
ffl»«K.writebit o.tu_i_star t ,o 
«Jg.vritebit o.tu.i.iatch.! 
SHARK. writ «bit o_tuni_clanv, o 
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~//3~ 

tual latched 1 
endif " 

if (tum2_latched L& turn 2 continue) 

; Check if there is anything in the racJc 
narrayfind a,syr rac*[l],6 
if (a 1- -l) 

; turn tumbler 2 on 

SHARK. vritebit o tun2 clamp, 1 

delay 250 

SHARK, vritebit o tum2 latch, 0 

delay soo ~ " 

"HARK . vritebit o tum2 start, 1 
else " ~ 

tum2 continue - o 
endif " 

tum2_ latched - o 
endif ~ 

if (tum2_continue— 0 ££ tum2 latched — O) 
; turn~tumbler 2 off ~ 
SHARK. writer- it o tum2 latch, 0 
delay 250 ~ " 

SHARK. vritebit o_tun2_start,l 
SHARK. readbit 1 sense tum2,a 
while (!a) " 

SHARK, readbit i_s*nBe_tum2 , a 
endvhlle 

SHARK . vritebit o tim2 start, 0 
delay 250 " " 

SHARK. vritebit o tua2 latch ,1 
delay 250 " ~~ 

SHARK • vritebit o tua2 claop,0 
tua2 latched - l~ "* 
endif ™ 

endif 

endvhile 

ahaJce_running « 0 
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*»c««ure: SNAPSHOT — — 
P SS^: g*« » sn» paJjot of the syringe data 
Notes: 

local file$ 

^^L'iif 5 '"^- «e rii e naae: 

stop ' 
endif 

erroroff 
fllsnaw 6, fUeS 
« (gctstatus() ) 
tellalara -invalid til* na»el- 

andif 
erroron 

sysasg$ • -waiting for robot- h 
screenupdate robot...- 
stringrequest -SYRFiLE- 

sf_rov - S f row + i 
endvhile " 1 

fllecl ose 6 
sysasg$ — »» 

screenupdate 
stringfree -SYRrnx- 
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; Procedure: STARTUP 

; Purpose : startup system 

; . Author : MJB 



enablekeys 

call init.tcl 

if (next_syringe <• l) 

screenon "1090** 
else 

call restart. tcl 
run monitor* tcl 
endif 
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' Procedure: STOPCHEK 
• Purpose: checks to — <« 

; Author: KJB 8ee ir P**" 6 *YBtm has been hit 



"^^-.a^S's^lSSII-^ iS °* to ****** syringe list 
*i ( pause sys t- j 

it ( i simulate robot) 

request "ROBOT" 

ROBOT, aanualc 

free 
endir 

systea_paused » 1 
screenupd&te 
while (pause system) 
endwhile " ' 
ir (!siauiate robot) 

request "ROBOT" 

HOTOT. command -HOMAHDAL- 

endif 

systea jaused - o 

screenupdate 
end if 
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Procedure: SYR_ASP 

Purpose : move syringe to cup and aspirate solution 
Author : KJB 



set cup - l for RGP1, 2 for RGP2 

syringe « 1 for 10ml , 2 for 2.5ml* 
asp_amount ■ amount of solution to aspirate 
air^amount ■ amount of air to draw in 

if (log robot) 

logrobot$ « "syringe aspirate — cup: " + numtostrS(cup) ♦ " syringe: " + numt 
call logrobot.tcl 

logrobotS = « . — amount: " + numtostr$(asp — amount) + * air ami 

call logrobot.tcl 
endif 

If (simulate_robot) 

stop 
endif 

request "ROBOT" 
ROBOT. speed sp_£ast 
ROBOT. move N mixsafe2 M 

a$ N mixs" + numtostr$ (cup) + numtostr$ (syringe) 

ROBOT .move a$ 

ROBOT. speed sp_vslov 

while (!disp done) 
endwhile ~ 

ROBOT. jog_s 0,0,-4 

ROBOT, finish 

delay Soo 

/* Program to pull up syringe for solution amount */ 
if (syringe— 1) 

Botor_steps « (asp__amount+air amount) *syrgl_cal asp 

syr_amount(current_index) « syr amount (current_Tndex) ♦ asp_amount + air_amoui 
else "" ~ 

motor steps - (asp_amount:+air amount) *syrg2_cal asp 

syr amount [current index) - syr amount (current Index) + asp_amount + air^amoui 
endif" ~ ~ 

if ( (motor_steps-int (motor_steps ))>«. 5) 

m*tor_steps — int(motor_staps) + 1 
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elae - M ~ 

direction m q 
cail fitrkatr.tci 

r 

;ROBOT.jog s 0,0,4 
/ROBOT, finish ' 

delay 500 

savevars s, -syringes. daf 

ROBOT, speed sp_msIov 

ROBOT. jog s 0,0 4 
ROBOT, finish ' 

ROBOT, speed sp_f a st 

ROBOT. aove a$ 
ROBOT, move »aiacsafe2« 
free 
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Procedure: SYR_DSP 

Purpose : move syringe to cup and dispense solution 
Author : KJB 



set 



cup - 1 for RGF1, 2 for RGP2 

dsp_amount « amount of solution to dispense 



if (log_robot) 

logrobotS « "syringe dispense — cup; H + numtostr$(cup) ♦ " amount: " + nunto 
call logrobot.tcl 
endif 

if (siaulate_robot) 

stop 
endlx 



request •ROBOT" 
ROBOT .speed sp_fast 
ROBOT. move M mixsafe2" 
ROBOT .speed sp_med 

a$ 'mixs** + numtostrS (cup) + numtostrS (syringe) 

ROBOT. move a$ 

ROBOT. speed sp_yslov 

ROBOT. jog_s 0,0,-3.25 

ROBOT, finish 

delay 500 

/• Program to dispense from a syringe*/ 
if (syringe— l) 

ootor_stepe ■» dsp amount* syrgl cal dsp 
else ~ " ™ 

Botor steps — dsp amount* syrg2 cal dsp 
endir ~ - 

if ((motor_steps-int (motor steps))>«.5) 

DOtor_steps • int (motor steps) + l 
else ~ 

motor_steps - int (motor steps) 
end If " 
direction - l 
ca!3 strioxtr.tcl 
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bu( * -«p ««- «pv 

«lBe t0r - St8pS " ds P_«trop_ano»intl*syrgl_cal_dsp 
endi^° r - StapS " da P_ d «»P_«nount2.syrg2 cal dap 

elae fc p lnt (*otor_staps) + i 

^aotor.Bteps « intfaotor^steps) 

direction - o 
call strtetr.tcl 

r- 

ROBOT - speed «p_malov 

ROBOT. speed sp_ned 
ROBOT. move M mixsafe2" 
frsa 
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, -JZ1=. 

; Procedure: SYKFTLE 

; Purpose: Write a syringe's data to a file 

; Author: CES 

; Notes: The file number will be 3 upon entry 

; sf_rov will be the syringe to log 

local a$ 

strlngformat a$,"Pepcode: %-l5.15s Si*e: %s ml" , syrjpepcode$Csf_rov) ,numtostr${s 
fileappend 6,a$ 

a$ m "Sequence: " + syr_ sequence? [sfjrow] 
fileappend 6,a$ 

if (prot_proc(syr_process[sf row]] !- step finished) 

strlngformat a$, •current Amino: *2.01f Resin: %4.11f Subst: %4.21f Fi 

fileappend 6,a$ 

if <syr loc(sf row]) 

stringformat~a$ f -status: %-13.13s Location: In Input Rack <I*oc %.olf)",pro 
elseif (syr racic[sf row] — 5 | | syr rac*[sf_row] — 6) , M 

strlngformat a$ , -Status : %-13 . 13s- f prot_step$ [prot_proc ( syr _procese ( sf _row ) 
else 

strlngformat a $, "Status: %-i3*13s i? # prot fltep$(prot_procCsyr_processf sf_row] 
endif ~ 
fileappend 6,a$ 

a$ - -start: M + syr_datetime$(sf_row] 
fileappend 6,a$ ~ 
else 

strlngformat aS, "Resin: *4.llf Subst: %4.21f Final Deprot: ts^syrjresui 
*"*.eappend 6,a$ 

w - -start: " + syr_datetime$t6f_rov] + - Finished: - + date$() + " " + tim 
fileappend 6,a$ * 
endif 

fileappend 6, — 
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Procedure: SYKXHFO 



ST Van " *° Chan * a «yl«J* Info 
local a , aS , choice , temp, oldchoica — — 
t i?° P e Ptl«»e code 
J^S£^MS~^T™" <" --^inges, 
S P 5T2 ,, ?-*ff "Sg r *'3*'t code:- 

elaeir JlS", That coda is invalid.* 
^wr «f yr - pepcode$ t current row)) 

syr_pepcodoS [ current rovi - »s ~ 

Iif?f5 9 ? P*P*"e sequence 

sequence: " 

call hreak»eq.tcl 

Vrprocess C current tw] - o 
-*lc_needed ™ l — * 

«u,dif evars S »" 8 y^in««»-<i»f 

; caange the syringe size 
•leeir (current col — i? 

*Yr_racJc{ current row] - a 
»yr_racJcloc [ current rev) - o 
•yr_proce«»(current"row) - a 
enSr s .-«yringea.d«t- 

ayis2j™ loc "*°n »«t be between i and 30- 
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scrtienupdate — < -> 

stop 
ondif 

sysasg? - "Checking rack..." 

screenupdate 

teap - l 

while (temp <• num_syr inges ) 

if (syr loc[tajnp] « choice £fc teap 1= current_row && Gyr_si2e[tamp] 
tellalara "That location is already used!?* ~ 
sysasg$ « «•■• 
screenupdate 
stop 
endif 

teap « teap + l 
endwhiXe 
sysasg$ « "« 
screenupdate 
endir 

if (syr_loc[ current row) - 0 M choice > 0) 

calc_needed - 1 ~* 
elseif ~( choice «- 0) 

eyr process [current row J - 0 
endif 

syr_loc( current row) - choice 
savevars S, "syringes. da t" 
endif 

; Change resin amount 
elseif (current_col — 6) 
a • syr_resin7current_row] 
inputnua a, "Enter the resin amount : " 
if (a 1- syr_resin[current_rovj) 
syr resin [current row) - a 
if 7syr_process ( current_rov ) > 0) 
syr_process[ current row) • o 
calc needed - 1 ~ 
endif " 

savevars 5, "syringes .dat" 
endif 

; Change substituion amount 
elseif (current col — 7) 
a - syr_eubst7current row) 
inputnua a, "Enter the~subst. aaount:" 
if (a i» syr subs t ( curr ent_r ov J ) 
syr_subs t ( current row] - a 
if (syr ^process ( current row] > 0) 
syr_proceas[ current row] - 0 
calc needed - 1 ~ 
endif " 

savevars 5, "syringes. dat" 
endif 

; Do final deprotection? 
elseif (current_col 8) 
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^ <f ^^^^ f ™»*nt row) — -Y") 

syr_dodeprot:S f current^rov] - «y° 
iX ~ yr - proccss f curre "t row) > o) 

calc needed ■ i ~~ 3 
endif 

savevars S, "syringea.dat" 



endif 
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Procedure: SYRXHXT 

Purpose: Initialize the syringe pusp 
Author: KJB,CES 



Notes: 



local choice, teap 

eyringe_ready - 1 
screenupdate 

; Check syringe pump power 

sysinlt_&e&sage$ - "Checking Syringe Pusp Power" 
screenupdate 
call syrpower.tcl 
if ( Jsp^powar) 

syringe_ready - o 

erroron™ 

stop 
endif 

syringe_ready - syringe_ready | 2 
; Fill the reaervior 

tell "Pill the Syringe Pump reservoir." 
syringe_ready - syringe ready I 4 
screenupdate 1 

; Prime the syringes 

if* Jioice)" D ° y ° U Vant t0 priBe the fiVrin 9 e Pumps?* 

tell "Prime them now." 

t«ll "Turn the pumps off and then on." 
endif 

syalnit_measage$ « "Checking Syringe Pump Power" 
screenupdate r 
call syrpower.tcl 
if (lsp_power) 

syringe_ready m 0 

erroron 

stop 
endif 

syringe_ready - syringe ready I 8 
screenupdate "~ 
erroron 
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''^Procedure;" K&SHXKC 

I SS 0 ^ actions tor a washing 



local a,buf_pl*ce, info index 
inf olndex « 1 

;find buffer in reagent table 

sarrayfind buf_place,contents${i) ,prot_buf $(syr _j>r ocess ( cxirr ent_index J ] 

I? /S^SL?™* stArt:ed ' 9et from input rack 
if (s^'e^ 

rack type - i - J ' 
else 

rack type - 2 
endif " 

ca?HeSec^ 
syr^grip ( current index 1 •* i 
call stopchek.tcl 
endif 

; switch grip on syringe 

1 ^^^^^^^^^-^if< s y r -"^[~^^-i"dcx ] -- 8 , | , ( S yr_r a cX[current 
Tinge ■ i — ; 

syringe - 2 
endif 
grip - i 
nest - i 

syringe in restart dont pick up 

cair r pu^ld?tei nt: ^ indaX3 l " 8 " s ^- ra ^C cwm *- inde *J !-9) 
call stopchek.tcl 
endif 

if (syr_si«e( current index]— 10) 
syringe - l ~ 



syringe - 2 
endif 
grip - 2 
nest • 1 

call gethold.tcl 
«yf_9rip( current index) - 2 
call stopchek.tci 
endif 



out solution in syringe 
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call stopcuex.tcl 

eheif* . - 

restart_inf o$ [ info Index ] • "Wash: Emptied syringe" 
savevars 7, "restart. dat" 
infoindex « info index + 1 

; dispense buffer 

restart_info$( infoindex] « "Wash: Started dispensing buffer" 
savevars 7 , "restart.dat" 
infoindex - info index + l 

buf_aaount - prot_vol[syrj>rocess[current_index) ] 
if (syringe— 2) " 

buf_aaount «■ buf aaount/division factor 
endif 

buf_nuaber - buf _p lace 
run~disp buf .tcl 

sol_avaiT[buf_place) «* sol_availfbuf place] - buf amount 
savevars 1, " amino, da t" ~ 
if (log robot) 

logroEot$ - "dispense : ■ + nuatostr$(buf amount) + n nozzle: " + nuatostr$(bu 
call logrobot.tcl ~" 

logrobotS - "solution : " + prot buf $(syr process (current_index] ] 
call logrobot.tcl ~ 
endif 

restart_info$( infoindex] = "Wash: Finished dispensing buffer" 
savevars 7 t "restart.dat" 
inf oindex - inf oindex + l 

; aspirate buffer 

r*start_inf o$ ( inf oindex] *> "Wash: started aspirating buffer" 
savevars 7 , "restart.dat" 
infoindex • inf oindex + l 
cup - X 

if (syr_size[current_index)— 10) 

syringe - i 
else 

syringe - 2 
endif 

asp_aaount » buf_aaount 

air~aaount - prot air [syr_process( current index]] 
if (syringe— 2 ) " *" 

air amount » asp aaount/division factor 
endif 

call syr^asp.tcl 

re*tart_Inf o$ [ infoindex ) - "wash: Finished aspirating buffer" 
savevars 7 , "restart. dat" 
infoindex - infoindex + i 
call stopchek.tcl 

; rotate 

rot tiae • 60*prot tine [syr process (current index]] 
call rotate, tcl " ~ 
call stopchex.tcl 

; squeeze out solution in syringe 
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call waste. -^1 ^ ( x 

iaf ©index « infoind4x + i 
ca ,stopcfaek.tcl 
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Procedure: WASHING 

Purpose : executes robot actions for a washing 
Author ; KJB 



local a,buf_placa,infoindex 
info index - 1 

;find buffer in reagent table 

sarrayf ind buf _place , contents? [ i ) , prot_buf $ [ syr_process ( current_index] ) 
; if syringe just started, get froa input rack 

if (syr_rack[current_indexj 1-844 syr rack [current index) !«*10&4syr rack (current in 
if <syr_siza( current Index]— 10) - - — - 

rack_type - i ~ 
else ~ 

rack type - 2 
endif " 

rack_locatlon - syx rackloc ( current index) 
call ge track. tcl ™ " 
fi yr.grip( current index) - l 
call stopchek.tcl 
endif 

/switch grip on syringe 

if (syr_grip(current_index)— 1| | ((syr rack (current index)— 8) | | (syr rack [current 
if ( syr_s 1 2 e ( current index]— 10) ~ ~ " 

yringe - i " 
e^e 

syringe - 2 
endif 
grip - l 
nest « l 

;if syringe in restart dont pick up 

if ( syr_rack ( curr en t_ index) »-844syr rack[current index) 1-9) 

call puthold.tcl ~ ~ 

call stopchek.tcl 
endif 

if (syr_size[current index)— 10) 

syringe - l ~ 
else 

syringe - 2 
endif 
grip - 2 
nest - l 

call gethold.tcl 
s Y r _9rip( current index) - 2 
call stopchek.tcl 
endif 

/squeeze out solution in syringe 

if <(syr_size(current_index)— 10 4 4 syr amount [current index )>dr op amount 1) | I (syr 
c- 1 ! waste- tcl ~ - " n 7 - 
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call stopcnax.tcl ' 
endif.. . 

• "™» =»Ptied syringe- 

inf oindex - infoindax -f 1 
; dispense buffer 

SES^SiSSSSEJ " " Ha8h! Start,Ml «iWln» buffer- 

inf oindex » inf oindex ♦ l 

^T^^?r t - voit8yr - proces8tcurrcat - iBdwt J j 

^bufaaount - buf.aaount/dlviaion.f actor 

buf_nuaber - bufplace 
rim disp buf.tcX 

Z3^£%£Z&.Z ^-—iHbuf .place, - buf_»ou»t 
If (log_rotoot) 

^!T5o^oLtftci a,M,e ! " + n «"«^Srbuf_«ouat) + - „ OI *le: - + mmfcoatrS (b,l 
endif 

s^e^i 1 ^^^^ " * W " h: Finish "* dispensing buffer- 
infoindex - info index *- l 

; aspirate buffer 

wv^i^f-ri^?^- " " W " h: Sta " ed "P*"""* »>uffer- 
infoindex - inf oindex + i 
cup - i 

lt ^ri^a i "l CUrrent - index J- 10 > 
else 

syringe - 2 
•ndif 

araaaount - buf aaount 

if T^rfa^^ J 
^air^aaount - aap_amoiint/divisiori_f actor 
call syr^asp.tcl 

sa^e^i^fS^etf^^i " " Ha8h: finished aspirating buffer- 
infoindex - info index + 1 
call stopchek.tci 

/rotate 

call stopehek.tcl 

/squeeze out solution in syringe 
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call vaste.Uil 
r*stkrt_info$(in£oindox) - 
savevors 7, "restart.dat:" 
inf* index «= infoindex + l 
ca. /StopcheX • tcl 



"Wash: Emptied syringe" 
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• Procedure: WASTE 

; Purpose : nova to waste and dispense liquid 

* Autnor : K3B 

it (log_robot) 

c!!I 0 ^obot U tcr ! " + numtOStr$ (syr^ountfcurrent.index] ) 
end if 

if (simulate robot) 

stop *~ 
andif 

request "ROBOT" 

ROBOT • speed sp_aed 

ROBOT. move "vaste" 

ROBOT. speed sp_mslov 

ROBOT, jog s 0 # o, -waste jog 
ROBOT, finish ~ ^ 

/* Program to squeeze out liquid */ 
if (syringe— i) H ' 

^aotorjjteps - <syr_amount[eurrent_index)+i) *syrgl_cal_dsp 
<m J i ; or - steps " (syr_amount(current_index]+. 25) *syrg2_cal - dsp 

if (<BOtor_stepa-int (motor steps))>-*5) 

notor_steps - int (motor steps)" 1 
else — 

notor_steps « int (motor steps) 
endif — ' 

direction - l 
call strtoatr.tcl 
syr_asount( current index) - o 
savevars 5, "syringes.dat" 

l% / 

/* Program to suck up drop */ 
if (syringe— i) r ' 

motor_stsps - drop_amountl*syrgl cal aso 
^yr_wount ( current_index ) - drop^amountl 

»otor_steps - drop amount2*syrg2 cal asp 
^^.amount(current-index) - drip^amoSnta 

if ( (motor_steps-int (motor steps) )x».s> 

*otor_steps - int (motor Steps) " i 
else — * 1 

n~tor_steps - int(motor_staps) 
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4irection « Q * 
call strtaartr.tcl 



ROBOT. speed Gp_nslov 
ROBOT. jog_s O,0,v&ote_jog 
free 
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Procedure: HH&STODO 

2Sf? e : £i«do current index 
Author : fjp — 



f ' j ' k ' tQ °P' temp tiae, teap busy 
?^ U ^ n °S»??^ ' "rxev.ia^Ho^ , new_a»ino step 

If'odoSt wSlT* ^ <leaVe At dunaAed if ve *™ simulating tiBes, 

tine now - elapsed (0) 
endif ' 

eurrent_index - o 
f lrst_te»p - o 
bail_out - o 

r^Lr^™ ?** ttC «•*■ *~ e^tyl- 

endif " 

if^n^sV^^e 0 *?!^ 9 * 8 in P roccss < ^n: the first one or bail out 

lf cur?^^ a ^^^^-^^«) 3 - step.ready „ ne*t_syringe <- nua 
show -point l- ~ r 9 

e- if 

P 

endif 

restart index - o 
stop 
endif 

lir^^^?** active syrinoes and find the one with the shortest wait 
i - 2~ 

Wh *i*# U < nttXt -«yringe) 

firsI^^T"^ < 6 ^^«sti»ecfirst_temp]) 

endif ~ 

i - i * 1 
endwhile 
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A3*' 

endif 

; Are there no syringes ready in the input trey? If there are none, no 
; syringe will be processed at this time 

if <prot_proc(syr_process[next syringe]) !- step ready || next syringe > nun. * 
if (ldont wait) " " 

current~index - 0 
stop ™ 
else 

; Simulate the next syringe 
current_index first temp 
show "point 3" ~~ 
tlme_now - syr_processtime(f lrst_temp] 
stop" 
endif 
endif 



Figure out if ve can start the next syringe in the input rack 



; first, set up a teap array of current tumble end-times 
i*l 

while (i < next syringe) 

tenp_processtIme(i] - syr process time(i] 

temp_amino step(i) «» syr amino_step(i) 

temp step(T) - syr process ( i ] 

i - T ♦ I 
endvhile 

; now set up arrays of 'robot busy' time slots using all active syringes 
; set the index of the START and END time arrays for robot busy periods 
temp_busy • 0 

robot_busy_start(0) - time now 
robot~busy~endCO) - time now 
flrst_temp - l ~" 

; while we haven't examined every active syringe's future, fill in the 
; busy time slots 
while (first_temp) 

tamp_busy - temp_buey + 1 

; Search through the active syringes and find the one with the shortest wait 
; that hasn't been processed to its finish step yet 
first temp - 0 
i - l" 

while (i < next_syringe) 

if <protproc[temp step[i]] !« step finished) 
if (iflrst_temp)~ " 
f irst_teap - i 

elseif (temp_processtime[i] < temp process time ( fir st_tamp)) 

first temp - i 
endif ~ 
endif 
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1 - i + 1 
•ndvhlla 



; T Lt%S^ d * SyriD9e ttat haan't been processed to the end, process its 
it (first_temp) 

t«Sp d - U fir^t te^ Cent r0b0t B0Ve " tiBefi f or ***** syringe 
; the START of these rohot moves 

SmW^V*^ 1 te =P^usy ] - teap_proeesstime[teap} 
t«p fc 8tep[teap] - taap_step(temp] + i 
SE?^? " J-aP-ProcesstiieCtei^j 

•first l^S^i C £ [ 11 Jf° c C temp_s tep ( temp ] ] ] & parens top) ) 
J*^~I*™° C * if VG are starting another amino 
ii p T?ir proc f tMp - fite Ptt«Bp3) — step nextaaino) 

P-^^-BtePCteap) < syr amino count [temp J) 

J!^^!?^?- 0 ^ 15 C t«np ] - temp Soino step (temp] + 1 
tenp_step£teffip) - i ~ ~ 

else 

^teap^stepcteap] - teap_step[teap] + 1 
^ris^^^^^-P^ J ~ ^ep.stopifnofine^ep, 
else BP " StCP{tCBiPj " tea P- sta PC te =PJ + 1 



ttndif P ~ StePCteiaPj " nu »Jprocs 
else 



tS«-^ PCteap3 " temp^stepcteap) + 1 
^«ap_T:ine - teap_tiae * prot_robottiae ( tempos tep ( teap j J 

•ndvhile 

robot.busy_endCteap.busy] « tea P _tiae ;the END of thes robot moves 

if r T™^ ± ^ HEXT sc »eduled tumble end-time 

tilT^E roc t5 effl P_step(temp]] !» step finished) 
^•apjrocesstiaetteapj « temp.tiae + -(prot_tiae(teap_step C teap] J * 60) 



endif 

endvhile 



neS^tS 1 ™! 11110 *i°t» needed by the next syringe in the input rack 

tea? tiae - time now 
newjausy ^ o ~~ 

nev.aaino.step « i 

«*He (prot_procCnew_ ata p] !- step_finish«d) 

n«w busy . now busy ♦ l 

A^J**? 1 o£ ~ th *» e moves 
"SV'^t^Inew biwyj - t«Bp tine 

'first ^S??, tProt_procTnow_6tep]j S param etop) ) 
first, cheek if ve axe starting-.nother amino " 
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nw^^t^ 9 * s y r -« Bino _«»«nt[na« syringe]) 
now anino ctap - new amino step ♦ 1 
new_step - 1 - - 

else 

^neptap . nev_step * 1 

ei if i fs^ r ^^i?f W - StepI ?" *:ep_stopifnof inaidep) 
11 (oyr_dodeprotS [next syringe) — »y«) 

nev_step - new step + 1 
else 

nev_step • nua_proes 
endlf 
else 

nev_step » new step + i 
^teap.tiBe - teiip_tiae ♦ protrobottime(nev_step) 
endvhile 

7 the END of these robot moves 
nev_Byr_and ( no v_busy J o teap^tiae 

ir 1 "?™ 1 ^ 1 ^ KEXT sch * du lfid tumble end-time 

tiST^TSf° CC I? OW - St ? P3 ! " step^finished) 

^™ ' taap time + (proCtime(new step] * 60) 

nev step « new step + i — ' 

endlf - 

endvhile 

I 1^ seT^tS^yxiSle 0 ^ SyrtngeS ^ " e — *r^« 

j - 0 

it^new.oyr.endtl] < robot_busy_st«rt[i] , ;the first block of moves is claar 
while ((i <- nevbuey) 6s {!bail_out) Ct (j <- te*p_busy) ) 

if i ( i n iVr- StartCi) *" robot - b «sy_endtj]) « (now_syr_and[i] <- robot_bu»y 

al btil o«™-r rr - Start:t11 *" «bo t _bu Ey _s tart[ j]) « (new syr starts] < rob 
Jc - J 

" l "if Unev syr_an«l[i] > robot_bu«y_ 8 tart[ j ] ) ££ <„«w_ oy r endfij <- robot b 
* - T 

0l £ai* o ^ 0b /»p*»y-«t«rtCjj >- n.vsyr_ S tart[l]> ti Crobot_busy_ s tar* t3 , < 

" - T 

bail ajotoop«ey_end t j] > new.syrttartti]) « (robot busy end(j) <- „.„ 

Jc - J 
else 

i - j + 1 
•ndif 



Page U3 



WO 96/22157 



PCT/US96/01168 



endvhlle 
else 

ball out - s 
encMf " 

;if 'next_syringe' not on hold, and there is one in the input rack, get it 
if (lbail_out) 

current~index - next syringe 

show "point 4" ~ 
else 

; if don't want to wait and there is a syringe in process 
current index - 0 
if (dont_wait) 

ti»e_now - time now + 60 
endif *~ 
endif 
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Procedure : FINDTOP 

Purpose : turn on motor until sensor is triggered 
Author : MJB 



if (simulate_robot) 

stop 
endif 

;load zero into pic counter register 
SHARK. writebit o_clear_counter, 1 
delay 100 

SHARK. writebit o cle^r counter, 0 



;set counter enable 

SHARK • writebit o start counter, 1 



;set direction to forward and turn on motor (motor will turn off 
automat i cal 1 y ) 
SHARK. writebit 224,1 
delay 500 

SHARK. writebit 401,1 



;wait for syringe to be sensed 

SHARK. readbit i_ p sense_syringe, a 

timer findtop time 

while (!a) 

SHARK, readbit i sense^syringe, a 
if ( elapsed (fin3top_time) >13) 

;stop motor 

SHARK. writebit 401,0 

delay 500 

/home motor 
call homemtr.tcl 
whi 1 e { ! home_done ) 
endwhile 
delay 250 

;load zero into pic counter register 
SHARK. writebit o_clearj;ounter, 1 
delay 100 ~ 
SHARK. writebit o clear counter, 0 



;call error 
error_code = 5 
call error. tcl 
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/restart timer 
timer findtop_time 

;set counter enable 

SHARK. writ ebit o_start counter, 1 



; start motor to find top of syrinoe 
SHARK. writ ebit 224,1 
delay S00 

SHARK. writebit 401,1 



endif 
endwhile 



;read the number of counts to reach the syringe 

SHARK, readctr i_motor pulses, motor pulses 

s how " motor pulses = ^ + numtostr$7motor_pulses) 



disable counter 
SHARK, writebit o_start_counter, 0 



i 
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CLAIMS : 

1. A system for the solid phase synthesis of 
multiple species of organic compounds each formed by 
repeated synthetic cycles of synthetic steps, said 
5 system comprising: 

a computer for processing a program of 
instructions correlated to predetermined synthetic 
cycles for the synthesis of each of said multiple 
species; 

10 an automated robot responsive to said computer, 

said automated robot operative to cause said synthesis 
steps to be performed in accordance with the synthetic 
cycles of each of said multiple species; and 

a timing protocol, implemented by said program of 

15 instruction and executed by said computer, for 

directing synthetic steps of at least two different 
species to be performed concurrently. 



2. The system of claim l wherein each of said 
20. species has an associated sequence specific timing 
protocol, the compilation of all sequence specific 
timing protocols of species currently under synthesis 
being a cumulative remaining timing protocol, said 
system further including means for determining whether 
25 there is a timing conflict between the sequence 

specific timing protocol of a new desired species and 
the cumulative remaining timing protocol. 

3 . The system of claim 1 wherein said synthetic 
30 steps include the steps of washing, adding 

deprotection reagents, deprotection, adding coupling 
reagents and coupling. 

4. The system of claim 1 wherein said synthetic 
35 steps include active and passive synthetic steps, said 
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IS 



txmxng protocol directing said active steps within a 
first synthesis of a first species to be performed 
concurrently with passive steps within a second 
synthesis of a second species. 

5. The system of claim l wherein said organic 
compounds includes peptides. 

6- The system of claim a further comprising- 

svrin! firSt ° £ 3 PlUralit y of binges, each 

syringe containing resin for repeatably coupling 
compounds to a solid support so as to synthesize a 

tirst species; and 

svrinae'T- 86 ' ^ 3 PlUrali ^ of -V**" . each 
syringe containing a desired compound that is to be 
coupled to the solid support during one of said 

synthetic cycles. 

that Is J*Z Sy8tem ° f Claim 6 Where 8aid o-Vound 
that is to be coupled is an amino acid for the 

synthesis of a peptide. 

6- The system of claim 7 wherein said solid 
» ^sT theSlS ^ 3 MSrrifield 8 ° lid -P-^ 

robot'nc^er^ * ^ 1 " ~" ~~ 

* y P° 8i tioning and manipulating 

syrmges from said first and second sets of a 
Plurality of syringes to thereby aspirate or dispense 
solvents and regents reguired within said synthetic 

35 



20 
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10- The system of claim 1 further comprising a 
database containing parameter variables required for 
the synthesis of said multiple species of organic 
compounds, said database including the characteristic 
5 sequence of the repeated synthetic cycles for each of 
said multiple species. 

11. A system for the solid phase synthesis of 
multiple peptides each formed by repeated synthetic 
10 cycles of synthetic steps , said system comprising: 
a first set c.~. syringes each holding a solid 
support ; 

a second set of syringes each holding a desired 
amino acid, said first set of syringes serving as the 

15 reaction vessels for coupling desired amino acids from 
said second set of syringes to the solid supports; 

a computer for processing a program of 
instructions correlated to predetermined synthetic 
cycles for the synthesis of multiple peptides; and 

20 an automated robot responsive to said computer, 

said automated robot operatively coupled to said first 
and second sets of syringes for aspirating and 
dispensing reagents so as to cause said repeated 
synthesis cycles to be performed in accordance with a 

25 desired peptide synthesis to thereby repeatably couple 
a desired amino acid to a solid support, said repeated 
synthesis cycles including the synthetic steps of 
washing, adding deprotection reagents, deprotection, 
adding coupling reagents and coupling, 

30 said repeated synthesis cycles performed in 

accordance with a timing protocol wherein said 
washing, adding deprotection reagents or adding 
coupling reagents is performed concurrently with said 
deprotection or coupling for different peptide 

35 syntheses. 
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12. The system of claim 11 wherein said first 
set of syringes is made of polypropylene. 

13. The system of claim 11 wherein each of said 
device"^ ° f 8yriDge8 inClUdeS 3 8olid P ha " retaining 

14. The system of claim 13 wherein said solid 
phase retaining device is a frit 

10 

15. The system of claim 11 wherein said solid 
support comprises a resin selected from the group of 
polystyrene and polyethylene glycol. 

15 ro h ' 8y8tem ° £ Claim " Wh6re 8aid abated 

robot includes an arm operatively connected to said 

robot so as to manipulate each of said first and 
second sets of syringes. 

20 17. The system of claim is wherein said first 

and second sets of syringes each includes a plunger 
operatively coupled thereto, said plunger movable by 
saad arm of said automated robot to thereby aspirate 



25 



or dispense reagents 
18. 



30 



The system of claim 17 wherein the content 
amount of reagents in each of said syringes is 
determined by the plunger position of the 
corresponding syringe. 



19. The system of claim li further including an 
optical sensor responsive to the movement of said 
first and second sets of syringes, said optical sensor 
confirming the positioning of said first and second 
35 sets of syringes. 
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20. The system of claim 11 wherein said 
synthesis of peptides employs Pmoc/tBu chemistry. 

21. The system of claim 11 further comprising 
5 piston pumps and delivery cups, said piston pumps 

delivering solvents and reagents to said delivery cups 
from which said first and second sets of syringes 
dispense or aspirate said solvents or reagents . 

10 22. The system of claim 11 further including a 

database containing parameter variables required for 
the synthesis of the multiple peptides. 

23 . A process for the solid phase automated 
15 synthesis of multiple species of organic compounds 

formed by repeated synthetic cycles of synthetic 
steps, said process comprising the steps of: 

a) initiating a synthetic step in a synthetic 
cycle of a species; 
20 b) determining if the time for said synthetic 

step of step a) is sufficient for initiating a 
synthetic step in the synthetic cycle of a different 
species, and if so, 

c) initiating a synthetic step in the synthetic 
25 cycle of said different species; and 

d) repeating steps a) , b) and c) until 6aid 
multiple species are synthesized. 

24. The process of claim 23 wherein said 

30 synthetic steps include washing, deprotection and 
coupling for the synthesis of multiple peptides. 

25. The process of claim 24 wherein said 
deprotection and coupling are performed in a plurality 

35 of syringes which serve as reaction vessels. 
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26. A process for the automated solid phase 
synthesis of multiple peptides formed by repeated 
cycles of washing, adding deprotection reagents, 
^protection, adding coupling reagents and coupling so 
5 as to repeatably couple amino acids to a solid 
support, said process comprising the steps of: 

a) filling a first set of syringes, each with a 
resin solxd support; 

10 d«H ^ f±llin9 3 SeC ° nd SGt ° f "y^*** each with a 
10 desired amino acid; 

a fir!! Wa n Sh . ln9 ° f Sa±d fir8t 8et ° f e y^9e° 

a first solution; 

.t M h! ! ddin9 depr ° teCtion ^^tion to the syringe of 
step d) to initiate deprotection; 

" f , while deprotection of step e) is proceeding 

those steps xs less than the time required for 
deprotection, otherwise proceeding with step g) . 

g) adding coupling solution to the syringe of 
step d) to initiate coupling to thereby couple a 
desxred amino acid to the solid support; and 

h) while coupling of step g) ifl proceeding 
repeating steps f) and a) if t-K«, -* 

tho „ * . , 9) lf tne tlme for performing 

those steps xs less than the time for coupling, 
otherwxse proceeding with steps d) and e) until the 
txme for coupling expires. 

27. The process of claim 26 wherein steps a, 
through h) are repeated until a peptide is 

30 synthesized. 

28. The process of claim 26 further comprising 
the step of washing each of said f irst set of myrl S ea 
of step d) prior to adding coupling solution. 



20 
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29. The process of claim 26 wherein the system 
is automated through the use of a robot, said robot 
adding coupling and deprotection solution by 
manipulating the syringes so as to aspirate and 
5 dispense reagents. 

30 The process of claim 26 wherein the first 
solution is dimethylf ormamide. 

xo 31. The process of claim 26 wherein the 

deprotection solution is plperidine/DMF. 

32. The process of claim 26 wherein the coupling 
solution is a solution of DIC/HOBt. 

15 

33. The process of claim 26 further comprising 
the step of interactively prompting a user for 
parameter variables thereby forming a database 
required for the synthesis of the multiple peptides, 

20 said database including the characteristic amino acid 
sequence of each of the multiple peptides. 

34 , The process of claim 26 further comprising 
the step of adding or deleting peptide sequences to a 
25 list of peptides to be synthesized. 

35. A process for the solid phase automated 
synthesis of multiple species of organic compounds 
formed by repeated synthetic cycles of synthetic 
30 steps, said process comprising the steps of: 

a) determining a sequence specific timing 
protocol associated with a desired species to be 
synthesized, said sequence specific timing protocol 
including when each synthetic step for the desired 
35 species occurs temporally; 
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currently under synthesis. "Pecxes 

the step o^iT^* ° Ui " 35 f ~ tI " t 
the desirld spTci." T ° yntl ""'" « 
the ti- ° ** - » to resolve 

aesi d specie, to he ^ITT^^ ^ 
pecies currently under synthesis. 
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38. The process of claim 35 wherein 
compounds includes peptides. 0rganiC 

the step of h e™r " ***** " hieing 

the synLaie of Parameter f ~ 
yncnesxs of the organic compounds. 
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